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ABSTRACT 


The  “paperless*’  ship  is  an  idea  which  has  been  advocated  at  the  highest  levels  in  the 
Nav>’.  The  goal  is  to  eliminate  the  enormous  amount  of  paper  required  in  the  normal  op¬ 
eration  of  a  modern  naval  warship.  The  ARGOS  system  under  development  at  the  Naval 
Postgraduate  school  is  a  prototype  solution  which  uses  HyperCard/ HyperTalk  for  proto¬ 
type  development.  The  operations  functional  area,  including  sections  for  training,  sched¬ 
uling,  message  generation,  and  publication  management  is  an  important  part  of  this 
development. 
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I.  INTRODUCTION 


The  NaA7  of  today  capitalizes  on  virtually  all  aspects  of  modem  technology.  Nuclear 
po>ver,  cruise  missiles,  and  satellite  communications  are  but  a  few  of  the  many  examples 
of  quantum  leaps  in  technology  which  have  been  taken  full  advantage  of  by  the  U.  S.  Nav}'. 
The  ability  of  shipbuilders  and  designers  to  quickly  understand  the  benefits  of  a  new  tech¬ 
nology,  and  implement  that  technology  in  U.S.  Warships  has  been  a  hallmark  of  the  U.S. 
Nan  for  over  a  centuty . 

In  the  latter  half  of  the  twentieth  century  ,  the  dominant  new  technology  has  been  the 
computer.  Computer  technology  has  been  implemented  in  fire  control,  guidance,  and  nav¬ 
igation  systems,  greatly  enhancing  capabilities  in  those  areas.  As  far  as  non-tactical  uses 
of  computers  are  concerned,  the  primary  implementation  has  been  the  shipboard  non- 
tactical  ADP  Program  (SNAP).  The  goals  of  the  SNAP  program  are:  “To  collect  infor¬ 
mation  only  once;  to  provide  maximum  automated  information  systems(either  on  line  or 
off  line);  to  require  minimal  supply,  maintenance  and  training  support;  and  to  require  no 
additional  shipboard  personnel."! 

SNAP  does  not  fully  capitalize  on  existing  technology  in  handling  non-tactical  data 
and  information  onboard  a  ship.  Today,  it  is  estimated  that  a  small  combatant  (DD,  FF) 
carries  onboard  upwards  of  twenty  tons  of  paper  jRef.  1:  p.  157].  Much  of  this  weight  is 
in  the  form  of  technical,  training  and  maintenance  manuals,  personnel  administration,  and 
training  records,  and  various  other  instructions  and  publications.  Keeping  this  myriad  of 
publications  updated  and  accessible,  and  simply  storing  such  a  volume  of 

1  As  stated  in  the  SNAP  II  Organizational  Maintenance  Management  Subsystem  desk  top 

guide 
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paper  quickly  becomes  a  problem  on  a  warship  that  has  been  optimized  for  space.  On  any 
modern  combatant,  space  used  to  house  paper  is  at  a  compromise  of  the  mobility, 
habitability  and  ^^arfighting  capability  of  the  ship.  It  is  for  these  reasons  that  the 
“paperless  ship"  concept  was  introduced. 

The  goal  of  the  paperless  ship  is  to  remove  as  much  paper,  if  not  all  paper  from  a 
ships  in  order  to  reclaim  the  space  and  weight  taken  up  by  the  paper  for  more  mission 
critical  uses.  The  ARGOS  project  is  an  effort  to  satisfy  the  requirements  of  the  paperless 
ship,  while  maintaining  the  stated  goals  of  the  SNAP  program. 

The  ARGOS  project  allows  for  computerized  access,  manipulation  and  creation  of 
data  normally  stored  on  paper.  ARGOS  additionally  allows  commanding  officers  and  battle 
group  cotnmanders  to  instantly  access  the  material,  personnel  and  training  readiness  of 
their  ship  or  battle  group,  by  accessing  the  information  available  through  ARGOS. 

ARGOS  is  a  multi-media,  object  oriented,  event  driven  data  base  system  which  com¬ 
bines  textual  and  graphical  data  in  allowing  any  use  of  that  data  that  would  be  available  if 
the  data  were  stored  on  paper.  The  ARGOS  prototype  has  been  implemented  at  the  Naval 
Postgraduate  School  using  a  Macintosh  ~  computer,  the  HyperCard  programming  en\i- 
ronment.  and  the  HyperTalk  programming  language.  At  present,  ARGOS  is  divided  into 
six  different  modules,  or  functional  areas;  maintenance,  operations,  supply,  administration, 
medical  and  personnel.  This  division  is  not  static,  but  is  merely  a  method  of  dividing  the 
ship's  administrative  workload  for  the  purpose  of  prototype  development. 

The  purpose  of  this  thesis  is  to  demonstrate  a  design  and  implementation  of  an  oper¬ 
ations  module  for  the  ARGOS  system,  and  to  integrate  it  with  the  other  modules  in  the 
ARGOS  system. 

2  MacintONh.  H>perCarJ.  and  HyperTalk  arc  registered  trademarks  of  Apple  Computer  Inc. 
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The  thesis  is  organized  as  follows: 

•  The  statement  of  the  problem.  Identifying  data  and  operations  unique  to  the  module. 

•  Programming  environment.  A  brief  discussion  of  HyperCard  and  HyperTalk. 

•  Implementation.  A  description  of  how  the  module  was  created. 

•  Conclusions.  Lessons  learned  from  the  research,  as  well  as  recommended  areas  for 
further  study/review. 

The  script  listings  for  prototype  stacks  developed  in  conjunction  with  this  thesis  are  in¬ 
cluded  as  Appendicies  A  through  F. 
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II.  PROBLEM  STATEMENT 

The  operations  officer  on  a  FFG-7  class  ship  in  the  U.S.  Nav)-  has  been  provided  with 
state-of-the-art  detection,  surveillance,  communications,  and  weapons  sv'stems  for  his  use 
as  a  watchstander.  When  he  is  through  with  his  watch,  however,  h«‘  conducts  his  business 
for  the  most  part  without  the  help  from  modem  technologj'.  The  responsibilities  of  the 

operations  officer  usually  include  the  following: 

•  Preparing  the  ship's  employment  schedule. 

•  Maintaining  tactical  publications  and  instructions,  operations  order,  and  Naval  war¬ 
fare  publications. 

•  Serving  as  the  ship's  Training  Officer. 

•  Communications. 

In  preparing  the  ship's  schedule  (sometimes  one  year  or  more  in  advance),  a  method 
is  needed  to  make  the  initial  schedule,  revise  it,  and  present  alternative  schedules  for  final 
approval.  When  done  inanuallv,  this  process  involves  many  hours  of  additions,  deletions, 
and  rewrites,  and  becomes  very  labor  intensive.  The  schedule  approved  is  only  a  proposal, 
and  must  be  forwarded  to  the  fleet  and  type  commanders  for  approval.  The  official  ship's 
schedule  which  results  is  im  ariably  different,  which  requires  generation  of  the  new  schedule 
sheets. 

The  maintenance  of  the  tactical  publications  and  instructions  library  appears  to  be 
straight  forward.  This  includes  entering  promulgated  changes,  and  keeping  custody  records 
for  each  publication.  When  a  publication  is  needed,  its  location  and  change  status  (that  is, 
what  changes  have  been  entered)  must  be  determined.  This  is  usually  accomplished  by 
locating  the  publication  librarian  or  searching  the  ship's  office  in  the  hope  of  finding  what 


4 


is  needed.  pending  on  the  availability  of  personnel,  this  can  be  time  consuming,  and 
frustrating  exercise. 

The  duties  of  the  ship's  training  officer  include: 

•  Scheduling  standard  training  requirement  (STR)  accomplishment. 

•  Overall  responsibility  for  divisional  and  departmental  training,  and  General  Military 
Training  (GMT). 

•  Surface  Warfare  Officer  (SWO)  and  Enlisted  Suriace  Warfare  Specialist  (ESWS^ 
training. 

•  Management  of  off-ship  schools. 

STR  scheduling  and  record  involves  ship's  exercises  as  specified  in  Fleet  Exercise 
Publications  (FXP).  The  ship  generates  and  submits  to  the  type  commander  a  training 
report  periodically.  This  computer  formatted  message  is  entered  into  the  type  commander's 
database  and  the  ship  receives  a  report  of  its  training  status  for  the  type  commander.  The 
problems  that  arise  are  ensuring  that  ail  exercises  conducted  since  the  last  training  report 
are  included  in  the  message,  and  properly  updating  the  database  (manually). 

The  oversight  of  divisional  and  departmental  training  consists  mainly  of  ensuring 
compliance  »>ith  Nan  training  requirements  and  regulations.  These  requirements  include 
maintaining  training  records  (schedules,  attendance  records,  accomplishment  records),  les¬ 
son  plans,  and  qualified  instructors  lists.  On  even  a  small  ships,  this  involves  a  massive 
amount  of  paper.  Additionalis .  the  formats  for  attendance  records  and  lesson  plans  var> 
widely  from  division  to  division.  SWO  and  ESWS  training  require  the  same  records  that 
divisional  training  does,  but  these  records  are  maintained  by  the  Training  Officer  per¬ 
sonally. 

Managing  the  ships  utilization  of  off  ships  schools  involves  knowing  the  ships  require¬ 
ments  for  graduates  on  board,  and  scheduling  school  quotas  to  maintain  the  proper  number 
of  graduates  onboard.  The  required  graduates  information  is  promulgated  by  the  type 
commander  as  part  of  a  TYCOM  instruction.  The  scheduling  information  for  convening 


dates  and  available  quotas  is  located  in  the  Catalog  of  Na\y  Training  Courses 
(CANTRAC).  Searching  for  a  particular  course  in  the  CANTRAC,  which  is  distributed 
on  microfiche,  can  be  ver>  tedious  and  time  consuming. 

The  final  area  of  responsibility  is  communications.  Messages  transmitted  by  a  ship 
are  either  free  format  text  messages  (similar  to  a  telegram),  or  formatted  messages  to  be 
entered  into  the  World  Wide  Military  Command  and  Control  System  (W^’MCCS)  data¬ 
base.  Formatted  messages  follow  a  strict  format  which  enables  the  data  contained  to  be 
scanned  into  the  WMMCS  database  by  computer.  It  follows  that  the  best  way  to  draft 
such  messages  is  via  computer.  A  software  system  is  presently  in  the  fleet  to  do  this,  but 
it  is  a  stand  alone  system  used  only  in  generating  formatted  messages. 

it!i  the  exception  of  formatted  message  generation  and  maintenance  of  individual 
training  via  service  record  entries,  the  functions  described  above  are  done  manually,  often 
at  the  expense  of  efficiency.  The  operations  module  for  ARGOS  should  address  these  areas 
and  make  the  performance  of  these  tasks  much  more  effective  and  efficient. 

The  major  problem  in  developing  such  a  system  at  the  Naval  Postgraduate  School  is 
ensuring  that  the  information  used  in  development  is  current  and  correct.  We  are  “out  of 
the  loop"  in  the  promulgation  of  new  directives,  and  changes  in  existing  instructions.  While 
we  mans  draw  on  personal  fleet  experience  as  a  guide,  ensuring  100'!  o  correctness  of  the 
information  used  to  de>elop  the  system  is  impossible  at  NPS. 

Another  consideration  is  the  security  classification  of  the  information.  A  complete 
system  could  not  be  implemented  without  addressing  this  issue,  especially  in  the  area  of 
message  generation,  since  the  goal  is  a  working  prototype  that  will  demonstrate  the  capa¬ 
bilities  of  the  system,  these  problems  have  minimal  impact  on  system  development.  They 
must  be  addressed  however,  before  a  complete  system  can  be  implemented. 
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HI.  THE  PROGRAMMING  ENVIRONMENT 


This  chapter  discusst.  the  HyperCard  environment  and  its  programming  language, 
HyperTalk.  HyperCard  was  developed  by  Apple  Computer  for  use  in  the  Macintosh  family 
of  computers.  HyperCard  version  1.2.1  was  used  in  developing  this  thesis. 

HyperCard  is  an  event-driven,  object  oriented  programming  environment.  All 
HyperCard  actions  are  initiated  by  messages  sent  to  objects  [Ref.  2:  p.l2].  The  basic 
structure  of  HyperCard  is  tlie  stack.  The  term  “stack"  should  not  be  confused  witli  the 
standard  last-in  first-out  data  structure  normally  associated  with  the  word  stack  in  most 
computer  applications.  In  HyperCard,  a  stack  is  analogous  to  a  3x5  card  file.  Each  stack 
is  a  HyperCard  object  containing  one  or  more  HyperCard  cards.  Each  card  consists  of 
pictures  (graphics),  fields,  and  buttons.  Fields,  and  buttons  are  also  HyperCard  objects, 
while  pictures  are  not.  Fields  are  areas  where  text  is  read  or  entered  by  the  user,  and  where 
text  is  stored  for  access  and  manipulation  by  HyperCard.  A  field  may  be  locked  to  prevent 
modification  by  the  user,  or  unlocked  to  allow  text  to  be  added  or  deleted.  Buttons  are 
primarily  designed  to  perform  some  action  on  mouse  events  (e.g.,  mouseUp,  mouseDown). 
The  final  HyperCard  object  is  the  background.  A  background  has  the  same  structure  as 
a  card,  it  may  contain  graphics,  fields,  and  buttons  and  is  associated  with  a  particular  stack. 
A  background  is  shared  by  cards  in  a  stack,  each  card  is  associated  with  a  background.  If 
a  stack  contains  only  one  background,  it  is  said  to  be  homogeneous.  If  there  is  more  than 
one  background  in  a  stack,  the  stack  is  heterogeneous. 

Each  card,  in  effect,  consists  of  several  layers,  At  the  bottom  is  the  background 
graphics  laser.  Any  graphics  common  to  several  cards  are  placed  here.  Background  but¬ 
tons  and  fields  come  next,  each  occupving  its  own  layer.  The  background  is  visible  in  all 
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cards  associated  hUIi  that  particular  background.  At  the  card  level,  tlie  same  structure  as 
in  the  background  is  foUo>\ed.  The  graphics  is  the  lowest  layer  (furthest  from  \ie\v),  with 
buttons  and  fields  layered  above. 

Events  in  HyperCard  cause  it  to  send  messages,  which  in  turn  may  cause  some  action 
to  occur  based  on  the  contents  of  the  script  of  the  object  receiving  the  message.  Messages 
travel  through  HyperCard  along  a  message  hierarchy,  which  is  a  one  way  path  from  but¬ 
tons  and  fields,  to  the  card,  the  background,  the  stack,  the  home  stack,  and  finally  to 
HyperCard  itself.  The  location  in  the  hierarchy  at  which  HyperCard  sends  a  message  is 
called  the  entry  point  [Ref.  3:  p.  376].  When  a  message  is  sent  HyperCard  searches  the 
script  of  the  object  at  the  entry  point  for  a  message  handier  for  the  current  message.  If  a 
message  handler  is  found,  it  is  executed  and  the  message  is  “trapped*’  (i.e.,  it  stops  its 
journey  up  the  message  hierarchy).  If  no  message  handler  is  found,  the  message  continues 
up  the  heirarchy  to  the  next  level.  If  the  message  gets  to  the  HyperCard  level  without 
encountering  a  message  handler,  it  is  lost  and  no  action  results.  When  a  handler  executes, 
it  sends  its  statements  as  messages,  first  to  its  own  object,  and  then  up  the  message  hier¬ 
archy.  A  message  handler  acts  on  the  object  in  which  it  is  contained,  regardless  of  where 
the  message  originated. 

Statements  in  a  IhperTalk  script  may  be  HyperTalk  commands,  HyperTalk  func¬ 
tions.  user-defined  functions,  externa!  commands  (XCMDs),  or  external  functions 
(XFNCs).  XCMDs  and  XFNCs  are  written  in  Pascal,  C,  or  68000  assembly  language  and 
compiled  separately.  They  are  then  added  as  resources  to  the  stack  and  may  be  called  by 
HyperCard.  XCMDs  and  XFXCs  allow  the  programmer  to  add  features  to  a  HyperCard 
stack  that  .are  not  supported  by  HyperCard  itself.  HyperTalk  offers  a  fairly  complete  set 
of  commands  and  functions,  and  the  ability  of  the  programmer  to  define  his  own  functions, 
extends  the  .ions  of  HsperCard. 
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There  are  several  advantages  in  using  the  HyperCard  environment  and  HvperTi'.k  for 
the  development  of  the  ARGOS  operations  module.  The  interface  is  very  intuitive,  which 
allows  the  user  to  quickly  learn  how  to  use  it.  Stacks  cau  be  created  using  HyperCard 
alone  without  any  knowledge  or  use  of  HyperTalk  code.  Users  can  rapidl)’  discover  tJie 
power  of  HyperCard  before  even  familiarizing  themselves  with  the  HyperTalk  language. 

HyperTalk  is  very  close  to  the  natural  language.  Commands  closely  resemble  imper¬ 
ative  English  (c.g.,  “put  card  field  1  into  field  answer”)>  and  the  syntax  is  relatively  for¬ 
giving.  This  allows  the  new  programmer  to  quickly  become  comfortable  in  writing 
HyperTalk  scripts,  which,  in  turn  allows  for  faster  prototype  development. 

HyperTalk  is  an  imperative  language,  which  eliminates  the  need  for  compilation  and 
“make"  commands  associated  with  most  high  level  languages.  This  greatly  speeds  up  stack 
development  and  debugging.  HyperTalk's  imperative  nature  can  have  a  negative  impact  on 
execution  speed,  but  execution  is  still  fast  enough  in  most  instances.  Since  HyperTalk  is 
object-oriented,  scripts  tend  to  be  small,  easy  to  understand  and  fully  transportable  to  other 
objects  scripts.  The  benefits  of  using  HyperCard/HyperTalk  as  a  prototyping  tool  can  be 
summarized  in  the  fact  that  the  time  (cost)  of  development  is  drastically  reduced. 
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IV.  IMPLEMENTATION 


A.  REPORTS 

The  reports  subarea  is  designed  to  aid  in  the  composition  of  formatted  messages  for 
transmission  from  the  ship  to  higher  authorit>'.  These  messages  follow  a  strict  format  to 
allow  the  information  contained  in  the  message  to  be  added  to  the  W'WMCCS  data  base. 
The  prototype  message  generator  modeled  the  Oprep-3  message  reporting  system. 
Oprep-3  messages  are  transmitted  to  report  incidents  of  high  national  or  Nav}-  interest. 
Guidelines  for  submission  of  Oprep-3  reports  are  contained  in  OPNA\TNST  3100.6D. 
which  was  used  in  the  development  of  this  system.  Due  to  their  nature,  Oprep-3  reports 
are  verv  time  sensitive,  with  submission  of  the  initial  report  required  within  20  minutes  of 
the  incident.  Additionally,  since  the  reports  are  formatted,  the  format  must  be  strictly 
followed,  \3  ith  these  requirements  in  mind,  the  system  was  designed  to  enable  the  user 
to  quickly  draft  an  Oprep-3  message,  while  at  the  same  time  ensuring  that  format  and 
content  requirements  of  OPNA\TNST  3100.6D  are  adhered  to. 

\^'hen  the  user  selects  “Reports"  from  the  operations  menu,  he  then  is  sent  to  the  re¬ 
ports  stack.  The  first  card  in  the  stack  contains  a  button  labeled  “Reports".  This  button 
uses  the  HPopL  pMenu  XCMD-'  to  implement  a  heirarchical  pop  up  menu  of  report  types. 
The  menu  appears  when  the  mouse  is  down  and  dragged  down  towards  the  bottom  of  the 
screen  from  within  the  button.  When  the  mouse  crosses  the  bottom  edge  of  the  button,  the 
first  menu  appears.  This  menu  lists  the  different  report  types  that  may  be  drafted.  The 
menu  was  taken  directly  from  the  formatted  message  origination  system  (FMOS),  which 
is  a  stand-alone  system  currently  available  in  the  fleet.  The  only  menu  choice  implemented 

3  The  IlPopl  pMenu  was  written  by  Guy  de  Picciotto  and  is  available  as  'freeware"  through 
International  Datawares  Inc..  San  Jose.  CA 
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is  “Oprep-3”.  When  the  mouse  is  dragged  into  this  choice,  another  menu  pops  up  listing 
the  different  types  of  Oprep-3  messages.  “Na^y  Blue”  is  the  only  choice  implemented,  and 
is  selected  by  releasing  the  mouse  over  the  selection. 

When  “Na^y  Blue”  is  selected,  the  user  is  sent  to  the  Navy  Blue  Card.  This  card  lists 
all  the  required  and  conditional  data  elements  used  in  drafting  an  Oprep-3  Navy’  Blue 
message.  An  open  card  message  handler  is  used  to  ask  the  user  through  the  use  of  dialog 
boxes  whether  the  report  is  an  initial  report,  an  amplification  of  an  earlier  report,  or  the 
final  report  on  the  incident  being  reported.  The  response  is  recorded  in  a  global  variable 
for  later  use.  The  user  is  also  asked  to  choose  the  Classification  for  the  message  (secret, 
confidential,  or  unclassified)  and  this  response  is  also  stored  in  a  global  variable.  The 
classification  can  be  subsequently  changed  by  choosing  the  “Classification”  button  on  the 
Navy  Blue  card. 

Once  the  open  card  handler  has  executed,  the  user  can  then  either  draft  the  message 
by  choosing  the  appropriate  data  set,  or  enter  the  addressees  for  the  message.  The  data 
sets  are  listed  on  the  Navy  Blue  card,  and  are  selected  by  clicking  the  mouse  on  the  data 
set  name.  When  the  data  set  is  chosen,  the  user  is  then  sent  to  the  “Set  Library"  stack, 
and  the  card  containing  information  on  the  data  set  chosen.  Each  data  set  card  has  a  field 
defined  for  each  message  data  set.  Individual  data  elements  can  be  either  required  or  op¬ 
tional.  Data  element  fields  can  be  of  a  fixed  length,  variable  (with  a  maximum  length),  or 
free  te.xt  (unlimited  length).  The  system  must  ensure  that  entered  data  elements  are  within 
the  format  size  limits,  and  that  they  do  not  contain  illegal  characters.  This  was  accom¬ 
plished  by  the  use  of  the  HyperCard  idle  message. 

The  idle  message  is  sent  by  HyperCard  to  the  current  card  when  no  other  system 
operation  is  taking  place.  Each  data  set  card  keeps  track  of  the  cursor  location  by  putting 
the  field  name  of  the  active  field  into  a  hidden  card  field.  The  card  sends  the  idle  message 
to  that  field,  and  each  field  has  an  on  idle  message  handler.  The  on  idle  handler  in  the  field 
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checks  for  illegal  characters  -  namely  the  slash  (/),  which  is  used  in  the  Oprep-3  reporting 
system  as  a  data  field  delimiter.  This  checking  is  done  quickly  through  the  use  of  the  offset 
function.  The  offset  function  returns  the  location  of  an  indicated  chunk  of  text  in  a  speci¬ 
fied  container.  If  the  chunk  is  not  in  the  container,  zero  is  returned.  If  the  offset  of  the 
single  slash  in  the  present  field  is  not  zero,  then  the  slash  is  removed,  a  beep  sounds,  and 
the  cursor  is  placed  after  the  location  of  the  deleted  slash. 

The  length  of  the  active  field  is  also  checked  in  the  field's  idle  handler,  if  necessary, 
through  the  use  of  the  “length  of’  function.  If  the  user  enters  an  extra  character  in  the 
field,  the  extra  character  is  deleted,  a  beep  sounds,  and  the  cursor  is  placed  at  the  end  of 
the  field.  The  user  can  progress  through  the  fields  by  using  the  mouse,  the  tab  key,  or  the 
return  key.  Each  field  has  a  mouse  within  handler  to  select  after  the  last  character  of  that 
field  when  the  mouse  is  within  the  field. 

3\'here  possible,  required  data  known  by  the  message  generating  system  is  automat¬ 
ically  entered  into  the  appropriate  data  field.  The  originator  of  the  message  (USS  Jarrett 
in  the  prototype),  the  message  type,  the  report  type  (initial,  amplification,  or  final)  and  the 
report  serial  number  are  all  entered  in  the  appropriate  fields  by  the  system.  The  serial 
number  of  the  message  is  automatically  incremented  when  the  user  enters  the  message  card 
(Na'T  Blue  in  the  prototype)  if  the  message  is  cancelled,  the  proper  serial  number  is  re¬ 
stored.  This  automatic  data  entry  feature  decreases  the  time  required  to  draft  the  message. 

Each  data  set  card  contains  an  “Enter**,  “Return**,  and  “Delete**  button.  The  enter 
button  verifies  that  all  required  data  fields  are  present.  If  required  data  is  missing,  an  error 
message  is  displayed,  and  the  user  is  returned  to  the  appropriate  data  field.  If  all  required 
data  is  present,  the  data  fields,  the  single  slash  delimiters,  and  the  double  slash  end  of  data 
set  marker  are  entered  into  the  message,  adhering  to  the  69  character  per  line  requirement 
of  OPNAVINST  3100.6D,  and  the  user  is  returned  to  the  Navy  Blue  card.  The  delete 
button  deletes  the  data  set  from  the  message  currently  being  drafted,  and  returns  the  user 
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to  the  data  set  card.  The  user  is  then  returned  to  the  message  card  to  choose  the  next 
operation.  The  cancel  button  simply  empties  all  data  Helds  on  the  data  set  card,  and  returns 
the  user  to  the  message  card. 

All  information  on  data  set  content  contained  in  OPNAVINST  3100.6D  appears  in 
the  graphics  of  the  appropriate  card.  The  Held  delimiters  and  end  of  set  marker  are  also 
on  the  card  in  the  appropriate  places.  The  data  entry  Helds  use  the  courier  12  font,  which 
is  proportional.  If  the  Held  can  contain  a  maximum  of  20  characters,  then  any  20  charac¬ 
ters  of  courier  12  w  ill  occupy  the  same  amount  of  space.  This  was  important  in  tailoring 
the  physical  size  of  the  data  Helds,  allowing  only  the  proper  number  of  characters  to  be 
displayed. 

The  addressees  of  the  message  are  entered  by  clicking  the  “addressees’*  button  on  the 
message  card.  The  user  is  then  sent  to  the  addressee  card.  This  card  automatically  con¬ 
tains  the  action  and  information  addressees  required  by  OPNAVINST  3100.6D  for  the 
message.  Additional  addressees  may  be  required,  depending  on  the  incident  being  reported. 
These  addresses  may  be  entered  by  clicking  on  the  appropriate  address.  When  all  addresses 
have  been  entered,  they  main  be  entered  by  clicking  the  enter  button,  or  canceled  by 
clicking  the  cancel  button.  In  either  case,  the  user  is  returned  to  the  message  card. 

When  the  message  drafting  is  complete,  the  user  may  review  the  message  to  ensure 
that  the  information  is  correct,  and  to  check  spelling  etc.  Manual  changes  can  be  made  to 
the  message  at  this  stage.  The  message  can  then  be  printed,  or  canceled.  If  it  is  printed, 
it  is  also  saved  for  future  reference  on  its  own  card.  Printing  of  the  Held  is  done  by  using 
the  PrintField  XCMD.-*  The  saved  messages  can  be  viewed  and  deleted  through  the  mes¬ 
sage  Hie.  The  message  Hie  is  accessed  via  the  “Msg  File"  button  located  on  the  top  card 
of  the  reports  stack. 

Portions  of  the  PrintField  XCMD  are  copyrighted  by  Think  Technologies.  It  was  written 
by  Mark  Schcrfling. 
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B.  TRAINING 


1.  Ship  Training 

Ship  training  is  conducted  according  to  standard  training  requirements  (STRs), 
which  describe  training  evolutions  conducted  by  the  ship  in  various  mission  areas  (ASW, 
AAW,  etc.).  Mission  area  STRs  are  divided  into  five  categories,  core,  basic,  intermediate, 
advanced,  and  repetitive.  Each  mission  area  has  an  ‘*M-rating’’  which  describes  the  status 
of  training  readiness  in  that  mission  area.  M-ratings  are  from  M-1  to  M-4,  and  are  de¬ 
termined  by  the  status  of  the  mission  area  STRs.  When  an  STR  is  conducted,  a  rating  of 
M-1  is  assigned.  For  repetitive  STRs,  the  M-rating  degrades  to  M-2,  M-3,  and  finally 
M-4  at  inter>als  defined  in  fleet  exercise  publications.  For  all  other  STR  categories  the 
M-1  rating  is  current  for  21  months,  at  which  time  it  degrades  directly  to  M-4.  Due  to 
classification  considerations,  the  Mobility  (MOB)  mission  area  was  the  only  mission  area 
modeled  bj  the  prototype.  The  MOB  mission  area  is  further  divided  into  four  sub-areas: 
Engineering  (MOB-El,  Damage  Control  (MOB-D),  Seamanship  (MOB-S),  and  Naviga¬ 
tion  (MOB-N). 

Each  STR  is  uniquely  identified  by  a  unique  six  digit  exercise  code.  The  first  two 
digits  identify  the  primary  mission  area,  the  third  digit  identifies  the  training  category,  and 
the  fifth  and  sixth  digits  identify  the  STR  within  the  particular  category.  Data  for  each 
STR  are  stored  using  the  "item"  facility  of  HyperCard.  An  item  is  a  chunk  description 
for  a  string  in  a  container  delimited  by  a  comma.  For  example,  if  “Tom, Dick, Harry"  were 
in  a  container,  “Tom"  would  be  item  1,  “Dick*’  item  2,  and  “Harry”  item  3.  The  item  fa¬ 
cility  makes  access  to  data  elements  a  quick,  easy  and  accurate  process,  especially  when 
certain  data  elements  may  be  of  vary  ing  length  or  omitted  entirely .  For  STR  data  storage, 
the  data  items  are,  in  order  ,  exercise  code,  STR  number,  Exercise  Name,  M-rating,  com¬ 
pletion  date,  expiration  date,  score,  evaluation  method,  and  reporting  source.  Additionally, 
repetitive  STRs  have  the  added  items  of  M-2  degradation  period,  M-3  degradation,  and 
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M-4  degradation.  These  item  lists  are  stored  in  background  fields,  with  a  dedicated  card 
for  each  primarj-  mission  sub-area  (MOB-E,  MOB-D,  MOB-S,  MOB-N).  Background 
fields  must  be  used,  as  the  HyperCard  And  command  will  not  search  card  fields.  For  each 
of  these  Aelds  containing  the  STR  item  lists  is  a  corresponding  background  field  which 
contains  the  same  information  formatted  for  viewing  by  the  user.  This  apparent  redun¬ 
dancy  is  necessar}’  since  data  stored  as  items  are  in  an  inappropriate  format  for  viewng  by 
the  user. 

To  view  the  STR  data  base,  the  user  selects  the  STR  option  in  the  training  pop 
up  menu  on  the  first  card  of  the  stack.  When  this  item  is  selected,  the  second  pop  up  menu 
offers  the  option  of  viewing  the  data  base  or  drafting  a  training  report  (TRAREP).  When 
the  “\’iew'*  option  is  chosen  the  user  is  sent  to  the  view  card,  which  has  an  open  card  han¬ 
dler  which  asks  the  user  to  input  the  mission  area  to  view.  Any  of  the  subareas,  or  the 
entire  MOB  data  base  may  be  viewed.  The  user  can  update  the  database  by  clicking  the 
“Update”  button.  The  updating  process  involves  checking  the  expiration  date  of  each  STR 
in  the  database  currently  in  Mew.  If  the  grade  has  expired,  the  M-rating  is  degraded,  and 
the  expiration  date  is  erased.  The  date  of  the  most  recent  update  is  displayed  on  the  screen, 
and  is  stored  in  a  field  on  the  appropriate  data  storage  card,  the  M-rating  for  the  mission 
area  in  liew  can  be  determined  by  clicking  the  “M- Rating”  button.  The  new  M-rating  is 
calculated,  displayed,  and  stored  in  the  same  manner  as  the  update  information. 

The  M-rating  operation  does  not  update  the  expiration  dates,  and  the  M-rating  com¬ 
puted  is  only  as  good  as  the  data  in  storage. 

When  an  STR  is  accomplished,  the  fact  is  recorded  by  clicking  the  “Enter  Data” 
button.  This  button  asks  the  user  to  enter  the  exercise  code,  completion  date,  score,  and 
evaluation  method.  The  data  is  entered  in  the  appropriate  data  item  line,  a  new  expiration 
date  is  computed,  a  M-rating  of  M-1  is  assigned,  and  the  string  “PDG”  is  placed  in  re¬ 
porting  source  field.  This  marks  the  data  as  unreported,  ensuring  that  it  will  be  included 


in  tlie  next  TRAREP.  The  corresponding  data  viewing  field  is  also  updated,  and  the  result 
is  sent  to  the  viewing  field  on  the  card  the  user  is  currently  viewing. 

When  the  user  desires  to  draft  a  TRAREP,  this  option  is  selected  from  the  pop 
up  menu  on  the  training  card.  The  user  is  then  sent  to  the  “draft  TRAREP”  card,  which 
has  three  buttons;  “Draft”,  “Cancel”,  and  “Print”.  The  card  has  an  open  card  handier 
which  automatically  increments  the  message  serial  number  and  displays  it  on  the  screen, 
and  records  and  displays  the  date-time-group  of  the  message.  When  the  “Draft”  button  is 
clicked,  the  entire  STR  database  is  searched  for  the  “PDG”  flag  in  the  reporting  source 
item.  When  a  PDG  flag  is  found,  the  appropriate  data  is  entered  in  the  TRAREP,  and 
the  new  serial  number  is  placed  in  the  reporting  source  item.  If  no  STR  accomplishments 
are  found,  the  user  is  notified,  and  the  message  drafting  process  is  aborted.  The  user  is 
then  asked  if  there  is  any  air  controller  data  to  report  through  a  series  of  HyperCard 
“Ask”  and  “Answer"  functions.  When  the  message  is  completed,  it  is  displayed  for  review, 
and  may  be  either  saved/printed  by  clicking  “Print",  or  canceled  by  clicking  “Cancel".  If 
cancel  is  selected,  the  database  is  returned  to  its  previous  state  (the  “PDG”  string  replaces 
the  new  serial  number),  and  the  user  is  returned  to  the  training  card.  The  Print  operation 
is  performed  b\  using  the  PrintField  XCMD,  since  HyperCard  does  not  directly  support 
the  printing  of  fields  only. 

2.  Personnel  Training 

Personnel  training  is  conducted  in  accordance  with  the  Personnel  Qualification 
System  (PQS),  leading  to  qualification  in  various  PQS  watch  stations.  The  prototype 
provides  a  mechanism  for  scheduling  PQS  training  on  a  quarterly  basis.  The  options 

available  to  the  user  are: 

•  Schedule  creation 

•  Schedule  modification 

•  Recording  training  accomplishment 
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•  Schedule  deletion 

•  Drawing  and  printing  a  training  schedule  chart. 

Each  option  is  accessed  using  the  pop  up  menu  described  previously,  and  each  has  its  o>^n 
card. 

The  schedule  creation  card  has  the  open  card  handler  which  asks  for  the  title  of 
the  schedule  and  the  calendar  quarter  of  the  schedule.  When  the  quarter  is  entered,  a 
calendar  for  the  three  months  of  the  quarter  is  drawn  on  the  card  for  the  user  to  refer  to. 
The  user  then  enters  the  lesson  name  and  scheduled  date  of  training  for  up  to  IS  lessons. 
Data  is  stored  using  the  item  feature,  with  item  1  being  the  lesson  name,  item  2  the  date, 
and  item  3  either  an  “S"  or  a  ‘*C"  to  indicate  scheduled  or  completed  training.  When  the 
schedule  is  saved,  a  new  card  is  created,  and  the  title,  quarter,  and  schedule  data  are  stored 
in  card  fields.  The  name  of  the  card  is  the  title  of  the  schedule  and  the  quarter  scheduled, 
this  allow  s  for  the  use  of  the  same  schedule  title  in  many  different  quarters.  A  listing  of 
schedule  card  names  is  maintained  on  the  “Schedule  File”  card.  W’hen  a  lesson  is  com¬ 
pleted,  it  is  annotated  in  the  “Record  Accomplishment”  card.  The  user  enters  the  date  the 
lesson  was  conducted,  and  the  schedule  date  is  replaced  by  this  date,  and  a  “C”  is  placed  in 
item  3  for  the  specific  lesson  to  signify  completion.  The  schedule  is  then  returned  to  stor¬ 
age  with  the  changes  added. 

The  user  can  draw  a  schedule  any  time  after  it  has  been  created  by  selecting  the 
“Draw  Schedule”  option  from  the  pop  up  menu.  The  15  lesson  limit  on  schedules  is  due 
to  the  space  limitation  of  the  draw  function.  The  drawing  process  uses  the  line  and  text 
painting  tools  available  in  HyperCard.  Two  problems  were  encountered  in  implementing 
this  function.  First,  when  changing  fonts  while  printing  text,  all  text  entered  since  the  last 
mouse  click  is  changed  to  the  new  font.  Therefore,  before  changing  fonts,  the  mouse  must 
be  clicked  to  ensure  all  text  remains  in  the  desired  font.  Second,  when  entering  text  near 
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other  graphics  ^ith  white  space  surrounding  the  text  character.  To  avoid  this,  text  is  en¬ 
tered  first,  and  graphics  afterward.  When  the  schedule  chart  is  completed,  it  may  be 
printed  using  the  HyperCard  print  card  function. 

A  major  problem  with  the  HyperCard  date  functions  was  also  encountered  in 
implementing  this  area.  All  dates  entered  must  be  in  the  HyperCard  “Short  date”  format 
(e.g.,  6/7/89  for  7  June  1989).  The  problem  is  the  fact  that  HyperCard  will  accept  an 
invalid  date  (e.g.,  2/31/89,  13/13/89)  and  transform  it  into  some  date  which  is  valid  format, 
but  incorrect  in  content.  This  problem  was  overcome  by  creating  a  user  denned  function 
validDate  which  ensures  that  only  valid  dates  are  entered  into  the  training  data  base  in  both 
the  ship  training  and  personnel  training  areas. 

C.  PUBLICATIONS 

The  publications  subarea  was  created  in  the  prototjpe  to  serve  mainly  as  a  stub  for 

future  development.  The  facilities  provided  are: 

•  Finding  a  publication  by  title. 

•  Listing  publications  by  originator. 

•  Listing  publications  by  classification. 

•  Listing  publications  by  localion/custodian. 

•  Entering/Deleting  titles. 

•  Updating  custodian  or  change  number  information. 

Data  is  stored  in  a  background  field  using  the  item  Facility,  with  a  corresponding  field  of 
formatted  data  for  the  user  to  view.  The  data  items  are;  Title,  annex  number,  appendix 
number,  tab  number,  effective  date  of  the  publication,  classirication,  latest  change  number 
and  custodian.  The  change  number  and  custodian  information  can  be  changed  by  the  user, 
new  titles  can  be  entered,  and  titles  can  be  deleted.  Data  storage  is  similar  to  the  STR  data 
base.  All  data  items  are  stored  in  a  background  field,  with  corresponding  formatted  data 
for  viewing  stored  in  another  background  field  on  the  same  card.  \Mien  changes  are  made 
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to  the  database,  both  fields  are  updated  accordingly.  The  prototype  is  only  an  inventory 
system,  since  mass  storage  for  the  large  volume  needed  to  store  an  entire  publication  li¬ 
brary-,  and  security  issues  are  still  under  research. 

D.  SCHEDULES 

The  schedule  subarea  is  designed  to  facilitate  the  creation  of  the  ship's  employment 
schedule,  and  also  to  record  the  ship's  actual  employment  for  historical  purposes.  Infor¬ 
mation  on  employment  scheduling  was  taken  from  Naval  Warfare  Publication  10-1-10 
Chapter  8.  the  methods  used  were  verj  similar  to  the  personnel  training  scheduling  func¬ 
tions  described  in  section  B.  Schedules  are  created,  modified,  deleted,  and  drawn  in  much 
the  same  manner.  There  are  some  significant  differences,  however. 

A  schedule  event  must  have  a  start  date  and  an  end  date,  they  are  the  same  for  a  one 
day  event.  Also,  events  are  defined  as  either  occurring  in  port  or  underway,  and  any  event 
may  be  either  a  major  (primary)  or  concurrent  employment.  The  ship  must  have  one  major 
employment  schedule  for  everv  day  of  the  quarter.  Again,  the  item  facility  was  used,  with 
data  items  as  follows:  employment  abbreviation,  start  date,  end  date,  major  or  concurrent 
employment,  and  inport  or  unden>ay. 

Employment  abbreviations  are  stored  in  a  background  field,  and  a  corresponding  field 
of  formatted  data  for  viewing.  These  fields  do  not  change,  with  all  data  being  a  reprod¬ 
uction  of  table  8-1  of  NWP  10-1-10.  When  a  schedule  abbreviation  is  entered  during 
creation  or  modification,  a  check  is  made  using  the  find  function  to  ensure  its  validity.  If 
it  is  not  a  valid  entry,  the  user  is  notified.  On  a  valid  entrj,  the  inport/underway  status 
of  the  event  is  retrieved  and  the  user  is  asked  to  select  either  major  or  concurrent  employ¬ 
ment.  A  check  is  made  to  ensure  that  major  employments  do  not  overlap  and  valid  data  is 
entered  into  the  schedule.  When  a  major  employment  is  scheduled,  an  annotation  is  made 
in  a  card  field  signifving  that  a  major  employment  is  scheduled  for  the  appropriate  days. 
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When  the  schedule  is  saved,  this  field  is  checked  to  ensure  major  employment  for  every  day 
of  the  quarter.  This  field  must  also  be  saved  with  the  schedule,  and  retrieved  for  use  when 
modifying  the  schedule. 

Information  on  the  underway  and  inport  dates  is  stored  in  the  “officiaP  schedule,  since 
this  information  is  required  by  other  functional  areas.  The  term  “officiar  is  used  because 
the  user  may  want  to  store  several  alternative  schedules  for  the  same  time  period  during 
the  schedule  planning  process.  Only  the  information  designated  official  will  be  available  for 
use  b)  other  modules. 
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V.  CONCLUSIONS 


The  design  and  implementation  of  the  ARGOS  operations  module  has  demonstrated 
not  only  the  feasibility  of  such  a  system,  but  also  the  strengths  of  HyperCard/HyperTalk 
as  a  system  prototyping  toot.  The  four  subareas  modeled  are  representative  of  basic  areas 
of  responsibility  of  the  fleet  operations  officer.  These  areas  are  by  no  means  all  inclusive 
or  complete. 

Throughout  the  design  process,  an  effort  was  made  to  keep  the  system  as  user-friendly 
and  simple  to  operate  as  possible.  The  ARGOS  operations  module  makes  information 
available  where  and  vvhen  it  is  needed.  Thus,  the  user  will  be  more  productive,  efficeint. 
and  make  fewer  errors.  He  can  spend  more  time  producing  (i.e.,  writing  a  training  schedule 
or  operational  report)  and  less  time  investigating.  Formatted  messages  can  be  drafted 
quickly  and  virtually  error  free.  Employment  schedules  and  training  schedules  can  be  cre¬ 
ated  and  maintained  quickly,  and  information  can  be  extracted  easily.  The  end  result  of  the 
development  of  the  .ARGOS  operations  subarea  is  that  the  job  efficiency  of  the  people  using 
the  system  will  increase  substantially. 

Before  the  operations  functional  area  can  be  fully  implemented,  there  are  several 
problem  areas  that  must  be  addressed.  First  and  foremost  is  security,  the  majority  of 
publications,  messages,  and  information  the  operations  officer  deals  with  on  a  daily  basis 
carry  at  least  a  confidential  classification.  This  fact  limited  the  scope  of  development  of 
the  operations  futictional  area,  since  it  was  desired  to  keep  the  ARGOS  prototype  unclas¬ 
sified.  The  solution  to  the  securitv  issue  will  undoubtedly  involve  a  combination  of  the  use 
of  HyperCard's  password  capabilities  and  additional  physical  security  measures. 

Another  need  for  full  implementation  is  the  requirement  to  integi.te  some  type  of 
ROEM  (removable  optical  erasable  media)  and/or  CD-ROM  (compact  disk  -  read  only 


ineinon)  mass  storage  device.  This  capabilit)’  is  especially  needed  as  a  storage  device  for 
publications  and  instructions.  Having  reference  publications  on  some  computer  accessible 
medium  would  allow  rapid  searching  for  subject  matter  by  keywords.  This  capability,  like 
alt  others  in  the  ARGOS  system,  would  greatly  increase  efficiency. 

There  are  several  areas  of  developjiient  in  the  operations  functional  area  that  are 

worthy  of  consideration  for  future  research  and  development: 

•  Addressing  the  problems  of  computer  security  associated  with  the  ARGOS  system. 

•  Complete  implementation  of  the  message  generation  subarea,  including  computer 
interfaces  with  the  ship's  communication  system. 

•  Development  of  the  training  sub-area  as  its  ow  n  functional  area,  or  the  development 
of  a  transportable  training  module  for  use  as  an  add-on  to  the  administrative  func¬ 
tional  area. 

•  Development  of  a  mass  storage  (ROEM/CD-ROM)  capability  for  ARGOS. 

•  Design  and  Implementation  of  a  navigation  subarea  or  functional  area. 

Obviously,  the  above  list  is  not  a  complete  representation  of  the  possible  areas  of  im¬ 
provement  and  expansion  of  the  ARGOS  system.  A  major  portion  of  the  acceptance  of  a 
new  system  such  as  ARGOS  involves  salesmanship.  Demonstration  of  other  applications 
of  Macintosh  and  HyperCard/HyperTalk  capabilities  would  only  serve  to  increase  the 
attractiveness  of  ARGOS  as  a  system.  For  example,  developing  a  personnel  training 
module,  while  not  directly  associated  with  ARGOS,  would  make  ARGOS  more  attracti^e, 
since  the  personnel  training  ^^ould  use  the  same  hardware.  Alternatively,  making  ARGOS 
transportable  to  the  .MS-DOS  environment  would  make  the  system  Aery  attractiAc.  since 
that  capability  already  exists  in  the  fleet. 

The  primary  goal  in  the  development  of  the  ARGOS  system  is  to  substantially  reduce 
or  eliminate  the  need  for  paper  aboard  ship.  It  is  clear  that  this  goal  is  met  in  the  oper¬ 
ations  functional  area.  Additionally,  significant  increase  in  efficiency  will  be  realized  when 
using  a  fully  implemented  ARGOS  system,  since  data  is  more  accesible  to  the  user  than  it 
is  when  stored  on  paper. 
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APPENDIX  A.  OPERATIONS  STACK  SCRIPTS 


SCRIPTS  FOR  STACK;  operations 


•*  BACKGROUND  #1;  Operations  •••*•*••••••****••*•••**••*••••••••• 

onopenStack 
hide  message  box 
show  menuBar 
pass  opens  tack 
endopenStack 

*•  CARD  #1,  BUTTON  #1:  Up 
on  mouseUp 
visual  effect  zoom  out 
go  to  card  id  10931  of  stack  argos 
end  mouseUp 

CARD  #1,  BUTTON  #2:  Reports 
on  mouseUp 
go  to  reports 
end  mouseUp 

*•  CARD  #1,  BUTTON  #3:  Training  •••*••**••••••••••••••••*••*•••••••• 

on  mouseUp 
go  to  training 
end  mouseUp 

••  CARD  #1,  BUTTON  #4:  Publications  **••*••••••••••••**••••*••*••*••**** 

on  mouseUp 
go  to  pubs 
end  mouseUp 


••  CARD  #1,  BUTTON  #5:  Schedules 
on  mouseUp 
go  to  schedules 
end  mouseUp 

*•  CARD  #1,  BUTTON  #6:  EXIT  *•**••••*•**•••••••••••••••••*•••*•• 

on  mouseUp 
go  argos 
end  mouseUp 
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APPENDIX  B.  REPORTS  STACK  SCRIPTS 


SCRIPTS  FOR  STACK:  Reports 


*•  BACKGROUND#!;  Operations  •••••••*•*•••••••••••••••••••••••« 

(MiopenStack 
hide  message  box 
show  menuBar 
pass  openStack 
e^openStack 

**  CARD  #1*  reports  ****‘*******************»**''‘********* 

onopenCard 
global  draftflag 
put  "false"  into  draftflag 
endopenCard 

••  CARD  #1.  BUTTON  #1;  exit 
on  mouseUp 
goargos 
end  mouseUp 


*•  CARD  #1,  BUTTON  #2;  reports  *••*••••**•••••••*•**••»••**•••*•••• 

on  mouseDown 
pul  "Service"  into  tnenul 
put  return  &  "Maritime"  after  menul 
put  return  &  "General  Purpose"  after  menul 
put  return  &  "Air  Defense'Control"  after  menul 
put  return  &  "Flag'OTC"  after  menul 
put  return  &  "NGFS"  after  menul 
put  return  &  "Joint  Msgs"  after  menul 

put  return  &  "OpRep  3Rinnacle  NucFlashRinnacle  Front  Burner Riiuiacle  Emergency 
Destiuction-DisablementRinnacle  Emergency  EvacuaticmRinnacle  Broken  Arrow RirmacleNavy  Blue  Faded 
GiantJNavy  Blue  Bent  SpearNavy  Blue  Dull  SwortkNavy  Blue, Unit  SitRep"  after  menul 
get  HPopupMenufmenu  1 ,0,74,67) 
if  it  is  not  zero  then 
Put  Item  1  of  it  into  TheLine 
put  Item  2  of  it  into  Theltem 
If  TheLine  =  1  and  Theltem  =  2  then 
push  card 
go  to  card  id  4268 
end  if 

If  TheLine=8  and  Theltem=2  then 
push  card 

go  to  card  "pinnacle" 


end  if 

If  TheLine  s  g  and  Theltem  »  11  then 
push  card 

go  to  card  navy_blue 
end  if 

If  TheLine=8  and  Thelteni=4  then 
go  to  card  id 
end  if 

If  Thd-ine=l  and  Theltem=3  then 
go  to  card  id 
end  if 
end  if 

end  mouseDown 

•*  CARD  #1.  BUTTON  #3:  Msg  File  •**•••*•*•••••••••••••••*••••••••**• 

on  mouseUp 
push  card 

go  to  card  msg_file 
end  mouseUp 

•*  CARD  #1,  BUTTON  #4;  Msg  Settings 
on  mouseUp 
push  card 
go  to  card  settings 
end  mouseUp 

*•  CARD  #1,  BUTTON  #5:  return 
on  mouseUp 
go  to  operations 
end  mouseUp 

**  CARD  #2:  navy  blue  ****•**•••*♦**•••*•*♦»•••*••••*•*••* 
onopenCard 

global  msgtype,  drafter,  msgflag4nsgnag2,  draftflag,  oldnum,  semo.-i 
status,  class 

put  empty  into  msgtype 
put  ■OPREP-3”  into  msgtype 
put  empty  into  msgflag 
put  "NAVYBLUE"  into  msgflag 
put  empty  into  msgflag2 
put into  msgflag2 
if  draftflag  o  "true"  then 
put  "true"  into  draftflag 
set  tockscreen  to  true 
put  empty  into  drafter 

put  card  field  orig  of  card  settings  into  drafter 

put  card  field  orig  of  card  settings  into  card  field  orig  of  card  -i 

addees 

put  card  field  action  of  card  settings  &  return  into 
card  fleld  action  of  card  addees 

put  card  field  info  of  card  settings  &  return  into  card  field  info-. 
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ofcardaddees 

set  lockscreen  to  false 

answer  "Initial,  Amplification,  or  Final  report"  with  "Initial"  or-i 
"Amplification"  or  "Final" 
put  it  into  reqxxise 

answer  "Classification  of  message  ?"  with  "Secret"  or  "Confidential”-! 
or"Unclas" 
if  it « "Secret"  then 
put  "S  E  C  R  E  T"  into  class 
else 

if  it  =  "Confidential"  then 
put"CONFIDENTI  AL"intoclass 
else 

put  "UNCLAS"  into  class 
end  if 
end  if 

if  response  =  "initial"  then 
put  "INTT"  into  status 

if  card  field  ser_no  of  card  settings  is  empty  then 
put  empty  into  oldnum 
put  "001”  into  serno 

put  sono  into  card  field  ser_no  of  card  settings 
else 

put  card  field  ser_no  of  card  settings  into  oldnum 
put  char  I  to  3  of  oldnum  into  temp 
put  temp  -»■  1  into  newnum 
if  newnum  <  10  then 
put  "00"  &  newnum  into  semo 
put  semo  into  card  field  ser_no  of  card  settings 
else 

if  newnum  <  100  then 
put  "0"  &  newnum  into  semo 
put  semo  into  card  field  ser_no  of  card  settings 
else 

put  newnum  into  semo 

put  semo  into  card  field  ser_no  of  card  settings 
end  if 
end  if 
end  if 

exit  openCard 
end  if 

if  response  =  "amplification"  then 
put  "FOLUP"  into  status 
else 

put  "FINAL"  into  status 
end  if 

put  card  field  ser_no  of  card  settings  into  oldnum 
put  the  length  of  oldnum  into  len 
if  len  =  3  then 

pul  oldnum  &  "A"  into  semo 

put  semo  into  card  field  ser_no  of  card  settings 

exit  openCard 
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end  if 

if  len  =  4  then 

if  char  4  of  oldnum  =  "Z"  then 
put  char  1  to  3  of  oldnum  &  "  AA"  into  semo 
put  semo  into  card  field  ser_no  of  card  settings 
else 

put  char  I  to  3  of  oldnum  &  —> 

numToChar(CharToNum(char  4  of  oldnum)  +  1)  into  semo 
put  semo  into  card  field  ser_no  of  card  settings 
end  if 

exit  openCard 
end  if 

if  lens  S  then 

if  char  S  of  oldnum  =  "Z”  then 
if  char  4  of  oldnum  =  "Z"  tften 
put  char  1  to  3  of  oldnum  &  "AAA"  into  semo 
put  semo  into  card  field  ser_no  of  card  settings 
else 

put  char  1  to  3  of  oldnum  & 

numToChar(CharToNum(char  4  of  oldnum)  +  1)  &  "A"  into  semo 
put  semo  into  card  field  ser_no  of  card  settings 
end  if 
else 

put  char  1  to  4  of  oldnum  &-i 

numToChar(CharToNum(char  5  of  oldnum)  +  1)  into  semo 
put  semo  into  card  field  ser_no  of  card  settings 
end  if 
end  if 
end  if 

end  openCard 

••  CARD  #2.  BUTTON  #1:  Return  . . * 

on  mouseUp 

answer  "Message  will  be  deleted"  with  "OK”  or  "Return” 
if  it  is  ”ok"  then 

global  msgtype,drafter^mo,msgflag,msgflag2,status,draftflag,oldnum 

put  empty  into  msgtype 

put  empty  into  drafter 

put  empty  into  semo 

put  empty  into  msgflag 

put  empty  into  msgflag2 

put  empty  into  status 

put  empty  into  draftflag 

put  oktaum  into  card  field  ser_no  of  card  settings 
put  empty  into  oldnum 
set  lockScreen  to  true 
go  to  card  scratch  of  stack  set  library 
put  empty  into  card  field  test 
go  to  card  "navy  blue"  of  stack  reports 
pop  card 
end  if 

end  mouseUp 
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**  Card  #2,  button  #2:  exer  •**•*••****•*•••**••♦••••*»•••*•*••* 
on  nrioiiseUp 
push  card 

set  lockScrcen  to  true 
go  to  card  scratch  of  stack  set  library 
if  "OPERT  is  in  card  field  test  then 
answer  "'OPER'  Field  used"  with  "return" 
pop  card 

set  tockScreen  to  false 
exit  mouseUp 
end  if 

go  to  card  exer  of  stack  set  library 
endinouseUp 

••  CARD  #2.  BUTTON  #3;  oper 
on  mouseUp 
push  card 

set  lockScreen  to  true 
go  to  card  scratch  of  stack  set  library 
if  "EXER/"  is  in  card  field  test  then 
answer  "EXER'  Field  used"  with  "return" 
pop  card 

set  lockScreen  to  false 
exit  mouseUp 
end  if 

go  to  card  oper  of  stack  set  library 
end  mouseUp 


••  CARD  #2,  BUTTON  #4 
on  mouseUp 
push  card 

go  to  card  msgid  of  stack  set  library 
end  mouseUp 

**  CARD  #2,  BUTTON  #5:  ref  ****•***********•••••••*•*••••••••*• 

on  mouseUp 
push  card 

go  to  card  ref  of  stack  set  library 
end  mouseUp 

**'  Card  #2,  button  #6;  ampn 
on  mouseUp 
push  card 

go  to  card  ampn  of  stack  set  library 
end  mouseUp 

••  CARD  #2,  BUTTON  #7:  nair 
on  mouseUp 
push  card 

go  to  card  narr  of  stack  set  library 
end  mouseUp 
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•*  CARD  #2,  BUTTON  #8:  flagword  •**••••*•••*••••••••••••••*•*•••**** 

on  mouseUp 
push  card 

go  to  card  flagwcvd  of  stack  set  library 
endmouseUp 

*•  CARD  #2,  BUTTON  #9:  timeloc 
on  mouseUp 
push  card 

go  to  card  timeloc  of  stack  set  lilvary 
endmouseUp 

**  CARD  #2.  BUTTON  #10:  gentext  •••*•*•**••••••••••••••*•••••••••*•* 

(»  mouseUp 
push  card 

go  to  card  gentext  of  stack  set  library 
end  mouseUp 

••  CARD  #2.  BUTTON  #11;  rmks  ••*••••••••**•••••**••**•*••*•••••** 

on  mouseUp 
push  card 

go  to  card  rmks  of  stack  set  library 
end  mouseUp 

**  CARD  #2,  BUTTON  #12:  clostext 
on  mouseUp 
push  card 

go  to  card  clostext  of  stack  set  library 
end  mouseUp 

••  CARD  #2,  BUTTON  #13;  decl 
on  mouseUp 
push  card 

go  to  card  dec!  of  stack  set  library 
end  mouseUp 


•*  CARD  #2,  BUTTON  #14:  Classification  . . . 

on  mouseUp 
global  class 

answer  "What  is  the  classification  ?"  vsnth  "Secret"  or  "Confidential "-i 
orUnclas" 
if  it  =  "secret"  then 
put  "S  E  C  R  E  T"  into  class 
end  if 

if  it  s  "confidential”  then 
put  "CONFIDENTIAL"  into  class 
end  if 

if  it  a  "unclas"  then 
put  "UNCLAS"  into  class 
end  if 

end  mouseUp 
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*•  CARD  #2,  BUTTON  #15;  Addressees 
on  mouseUp 
push  card 
go  to  card  addees 
end  mouseUp 

*•  CARD  #2,  BUTTON  #16:  Standard  settings 
on  mouseUp 
push  card 
go  to  card  settings 
end  mouseUp 

••  CARD  #2.  BUTTON  #17:  Print  *•••**•••••**•••***•*•••*••••••*•*•• 

on  mouseUp 
set  lockscueen  to  true 

global  msgtype,drafter^mo^sgflag^sgnag24tatus,draftflag,oldnum 

put  msgflag  &  &  semo  into  filename 

put  empty  into  msgtype 

put  empty  into  drafter 

put  onpty  into  msgflag 

put  empty  into  msgflag2 

put  empty  into  status 

put  semo  into  card  field  ser_no  of  card  settings 

put  empty  into  semo 

put  empty  into  oldnum 

go  to  card  scratch  of  stack  set  library 

put  "BT"  after  last  char  of  card  field  lest 

put  card  field  test  into  tempmsg 

printFieid(card  field  test) 

go  to  card  navy_blue  of  stack  reports 

if  tempmsg  <>  "BT"  then 

put  Slename  &  return  after  last  char  of  field  listing  of  card-, 
msg^file 

set  lockscreen  to  true 

doMenu  "new  card" 

set  the  name  of  this  card  to  filename 

go  to  card  filename 

doMenu  "new  field" 

set  style  of  card  field  1  to  opaque 

set  rect  of  card  field  1  to  0,0,512342 

set  textfont  of  card  field  1  to  courier 

set  textsize  of  card  field  1  to  12 

set  lockText  of  card  field  1  to  true 

doMenu  "new  field" 

set  style  of  card  field  2  to  scrolling 

set  rect  of  card  field  2  to  136310380 

set  textfont  of  card  field  2  to  courier 

set  textsize  of  card  field  2  to  12 

doMenu  new  button 

set  icon  of  card  button  1  to  14953 

set  rect  of  card  button  1  to  0,303,48,342 
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set  showName  of  card  button  1  to  false 
set  autoHilite  of  card  button  1  to  false 
set  style  of  card  button  1  to  transparent 

put  "on  mouseUp"  &  return  &  "pop  card"  &  return  &  "end  mouseUp"  -< 
into  tempscript 

set  script  of  card  button  1  to  tempscript 
put  tempmsg  into  card  field  2 
go  to  c^  navy.blue 
set  lockscreen  to  false 
put  empty  into  draftflag 
choose  browse  tool 
rarest  with  1  to  12 
^w  card  field  j 
end  repeat 
go  to  card  repents 
else 

answer  "Message  is  empty"  with  "return" 
end  if 

end  mouseUp 

*•  CARD  #2.  BUTTON  #18:  Cut  Tape  . . . 

on  mouseUp 
push  card 
go  to  card  cut_tape 
end  mouseUp 

••  CARD  #2,  BUTTON  #19:  Review  *••*•*•••**••**•*••••*••*••*••••••*• 

on  mouseUp 
push  card 

go  to  card  scratch  of  stack  set  library 
end  mouseUp 

*•  CARD  #2,  BUTTON  #20:  Cancel 
on  mouseUp 

global  msgtype,drafter^mojnsgnag^sgflag23tatus,draftllag,oldnum 

put  empty  into  msgtype 

put  empty  into  drafter 

put  empty  into  semo 

put  empty  into  msgflag 

put  empty  into  msgnag2 

put  empty  into  status 

put  empty  into  draftflag 

put  oldnum  into  card  field  ser_no  of  card  settings 
put  empty  into  oldnum 
repeat  with  j  s  i  to  12 
show  card  field  j 
end  repeat 

set  lockScreen  to  true 

go  to  card  scratch  of  stack  set  library 

put  empty  into  card  field  test 

go  to  card  "navy  blue"  of  stack  reports 

pop  card 
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end  mouseUp 

••  CARD  #2.  BUTTON  #21 :  EXIT 
on  mouseUp 
goargos 
end  mouseUp 


••  CARD  #3.  BUTTON  #1:  New  Button  ••••••••••**••*••••••••••••*••• 

on  mouseUp 
pop  card 
end  mouseUp 

*•  CARD  #4.  BUTTON  #1;  New  Button  ***••••**••••*••*•••••••••••*•* 

on  mouseUp 
pop  card 
end  mouseUp 

••  CARD#5.  BUTTON  #1:  New  Button  •••••*••••••••••••••••••••••••• 

on  mouseUp 
pop  card 
end  mouseUp 

*•  CARD  #6;  addees  •*••*•••••••••*••••••••••••••••••*•• 

onopenCard 

select  after  last  char  of  card  field  orig 
endopenCard 

••  CARD  #6,  FIELD  #1:  ORIG 
ontabKey 

select  a^er  last  char  of  card  field  action 
end  labKey 

••  CARD  #6,  FIELD  #2;  ACTION  •••••••*•••••••••••••••••••••••••••• 

on  tabKey 

select  after  last  char  of  card  field  "info" 
end  tabKey 

*•  CARD  #6,  FIELD  #3:  info  *•*****•**••••»••••*••♦•••••*•*•*••* 
on  tabKey 

select  after  last  char  of  card  field  "orig" 
end  abKey 

••  CARD  #6,  BUTTON  #1:  Return  ••*•*•••***•••*•••**•••***•*••***•** 

on  mouseUp 
play  "RETURN" 
pqtcard 
end  mouseUp 


*•  CARD  #6,  BUTTON  #2;  Additional  Addee  Info  •••••••*••••••••••••• 

on  mouseUp 
push  card 

go  to  card  "addee  info" 
end  mouseUp 


••  CARD  #6,  BUTTON  #3;  Enter  **•*•*•*»*•♦•••••••••••*••*••••••*•* 

on  mouseUp 
global  class 
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set  lockScreen  to  true 

put  "FROM"  &  return  &  card  field  orig  &  return  &  return  &  "TO"  & 
return  &  card  field  action  &  reoim  &  "INFO"  &  return  &  card  field  -> 
info  &  return  &  "BT"  &  return  &  class  &  return  into  temp 
push  card 

go  to  card  scratch  of  stack  "set  library" 
put  temp  before  line  1  of  card  field  test 
pop  card 
pop  card 
endmouseUp 

••  CARD  #7;  addee  info  ••••••••••••••••••••••••••*••••*•••• 

ooopenCard 

if  "COMNAVAIRS YSCOM  WASHINGTON  DC"  is  in  card  field  "info"  of  card 
addeesthen 
hide  card  field  one 
else 

show  card  field  one 
end  if 

if  "CMC  WASHINGTON  DC"  is  in  card  field  "info"  of  card  addees  then 
hide  card  field  two 
else 

show  card  field  two 
end  if 

endopenCard 

••  CARD  #7,  BUTTON  #1:  Return  •••*•••••*•••**••••••••••••••••••*•• 

on  inouseUp 
play  "RETURN" 
pop  card 
endmouseUp 

••  CARD  #7.  BUTTON  #2:  airsyscom  ••••••••••••••••••••••••••••••••*••* 

on  mouseUp 

if  "COMNAV AIRSYSCOM  WASHINGTON  DC"  is  in  card  field  "info”  of-, 
card  aldees  then 

answer  "That  address  has  already  been  entered"  with  "return" 
else 

put  "COMNAV AIRSYSCOM  WASHINGTON  EXT"  &  return  after  last  char  ^ 
of  card  field  "info"  of  card  addees 
hide  card  field  one 
end  if 

endmouseUp 

••  CARD  #7.  BUTTON  #3;  cmc . 

on  mouseUp 

if  "CMC  WASHINGTON  DC"  is  in  card  field  "info"  of 
card  addees  then 

answer  "That  address  has  already  been  entered"  with  "return" 
else 

put  "CMC  WASHINGTON  DC"  &  return  after  last  char 
of  card  field  "info"  of  card  addees 
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hide  card  field  two 
end  if 

end  mouseUp 


••  CARD  #7,  BUTTON  #4:  NEXT  PAGE  •••••••••••••••*••****••*•••••••***• 

on  mouseUp 
go  to  card  "addee  info2" 
end  mouseUp 

•*  CARD  #8:  ADDEE  INF02 
onopenCaid 

if  "COMNAVSECINVCOM  WASHINGTON  DQ/22D//"  is  in  card  field  "info"  of 
card  addees  then 
hide  card  field  one 
else 

show  card  field  one 
end  if 

if  "COMSC  WASHINGTON  DC"  is  in  card  field  "info"  of  card  addees  then 
hide  card  field  two 
else 

show  card  field  two 
end  if 

if  "NAVXDIVINGSU  PANAMA  CITY  FL"  is  in  card  field  "info”  of  card 
addees  then 
hide  card  field  three 
else 

show  card  field  three 
end  if 

if  "CNO  OP  ZERO  ONE  WASHINGTON  DC"  is  in  card  field  "info"  of  card 
addees  then 
hide  card  field  four 
else 

show  card  field  four 
end  if 

if  "NAVSAFECEN  NORFOLK  VA"  is  in  card  field  "info"  of  card  addees  then 
hide  card  field  five 
else 

show  card  field  five 
end  if 

endopenCard 


*•  CARD  #8,  BUTTON  #1:  Return 
on  mouseUp 
play  "RETURN" 
pop  card 
end  mouseUp 

••  CARD  #8,  BUTTON  #2:  PREV  PAGE 
on  mouseUp 
go  to  card  "addee  info" 
end  mouseUp 
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••  CARD  #8,  BUTTON  #3:  nis  ••••*•*•**•*••*•••*••••••*•*•*•*•••• 

on  mouseUp 

if  "COMNAVSECINVCOM  WASHINGTON  DC//22D/r  is  in  caid  field  "info"  of 
card  addees  then 

answer  "That  address  has  already  been  entered"  with  "return" 
else 

put  "COMNAVSECINVCOM  WASHINGTON  IXV/22D/r  &  return  after  last  char-- 
of  card  field  "info"  of  card  addees 
hide  card  field  one 
end  if 

^  w  mouseUp 


*•  CARD  #8,  BUTTON  #4:  msc 
on  mouseUp 

if  "COMSC  WASHINGTON  DC"  is  in  card  field  "info"  of-, 
card  addees  then 

answer  That  address  has  already  been  entered"  with  "return" 
else 

put  "COMSC  WASHINGTON  DC"  &  return  after  last  char  -i 
of  card  field  "info"  of  card  addees 
hide  card  field  two 
end  if 

end  mouseUp 


••  CARD  #8,  BUTTON  #5:  dive  ••*••••••*••*••••••••••**•*•••••*•** 

on  mouseUp 

if  "COMNAVSEASYSCOM  WASHINGTON  DC"  is  in  card  field  "info"  of  card  ^ 
addees  and  "NA VXDIVINGSU  PANAMA  CITY  FL"  is  in  card  field  "info"  of 
card  addees  then 

answer  "That  address  has  already  been  entered"  with  "return” 
exit  mouseUp 
end  if 

if  "COMNAVSEASYSCOM  WASHINGTON  DC"  is  not  in  card  field  "info"  of  — ■ 
card  addees  and  "NAVXDIVINGSU  PANAMA  CITY  FL"  is  not  in  card  field  ^ 
"info" of  card  addees  then 

put  "COMNAVSEASYSCOM  WASHINGTON  DC"  &  return  & 
"NAVXDIVINGSU  PANAMA  CITY  FL"  &  return  after  last  char  —> 
of  card  field  "info"  of  card  addees 
hide  card  field  three 
exit  mouseUp 
end  if 

if  "COMNAVSEASYSCOM  WASHINGTON  DC"  is  in  card  field  "info"  of  card 
addees  and  "NAVXDIVINGSU  PANAMA  CITY  FL"  is  not  in  card  field  "info"— > 
of  card  addees  then 

put  "NAVXDIVINGSU  PANAMA  CITY  FL"  &  return  after  last  char  — i 
of  card  field  "info"  of  card  addees 
hide  card  field  three 
exit  mouseUp 
end  if 

if  "COMNAVSEASYSCOM  WASHINGTON  DC"  is  not  in  card  field  "info"  of—, 
card  addees  and  "NAVXDIVINGSU  PANAMA  CITY  FL"  is  in  card  field 
"info"of  card  addees  then 
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pul  "COMNAVSEAS  YSCOM  WASHINGTON  DC"  &  return  after  last  char  -i 
of  card  field  "info"  of  card  addees 
hide  card  field  three 
end  if 

end  mouseUp 

••  CARD  #8,  BUTTON  #6;  mUpers 
on  mouseUp 

if  "COMNAVMILPERSCOM  WASHINGTON  DC"  is  in  card  field  "info"  of  card 
addees  and  "CNO  OP  ZERO  ONE  WASHINGTON  DC"  is  in  card  field  "info"  of 
card  addees  then 

answer  "That  address  has  already  been  entered"  widt  "return" 
exit  mouseUp 
end  if 

if  "COMNAVMILPERSCOM  WASHINGTON  DC"  Ls  not  in  card  field  "info"  of 
card  addees  and  "CNO  OP  ZERO  ONE  WASHINGTON  DC"  is  not  in  card  field  -i 
"info"of  card  addees  then 

put  "COMNAVMILPERSCOM  WASHINGTON  DC"  &  return  & 

"CNO  OP  ZERO  ONE  WASHINGTON  DC"  &  return  after  last  char 
of  card  field  "info”  of  card  addees 
hide  card  field  four 
exit  mouseUp 
end  if 

if  "COMNAVMILPERSCOM  WASHING  TON  DC"  is  in  card  field  "info"  of  card  ^ 
addees  and  "CNO  OP  ZERO  ONE  WASHINGTON  DC"  is  not  in  card  field  "info"^ 
of  card  addees  then 

put  "CNO  OP  ZERO  ONE  WASHINGTON  DC"  &  return  after  last  char 
of  card  field  "info"  of  card  addees 
hide  card  field  four 
exit  mouseUp 
end  if 

if  "COMNAVMILPERSCOM  WASHINGTON  DC"  is  not  in  card  field  "info"  of 
card  addees  and  "CNO  OP  ZERO  ONE  WASHINGTON  DC"  is  in  card  field  -> 
"info"of  card  addees  then 

put  "COMNAVMILPERSCOM  WASHINGTON  DC"  &  return  after  last  char 
of  card  field  "info"  of  card  addees 
hide  card  field  four 
end  if 

end  mouseUp 

••  CARD  #8.  BUTTON  #7:  safety 
on  mouseUp 

if  "NAVSAFECEN  NORFOLK  VA"  is  in  card  field  "info”  of -n 
card  addees  then 

answer  "That  address  has  already  been  entered"  with  "return" 
else 

put  "NAVSAFECEN  NORFOLK  VA"  &  return  after  last  char  -i 
of  card  field  "info"  of  card  addees 
hide  card  field  five 
end  if 

end  mouseUp 
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**  CARD  #8.  BUTTON  #8:  NEXT  PAGE 
on  mouseUp 
go  to  card  "addee  info3" 
endmouseUp 

**  CARD  #9;  Addee  info3  **•*•*•*•*••»•*•*••••••••••*•••*•••• 

onopeoCaid 

if  "COMNAVMEDCOM  WASHINGTON  DC”  is  in  card  field  "info"  of-, 
card  addees  then 
hide  card  field  one 
else 

show  card  field  one 
end  if 

if  "NAVINSGEN  WASHINGTON  DC"  is  in  card  field  "info"  of  card  addees 
then 

hide  card  field  two 
else 

show  card  field  two 
end  if 

if  "COMNAVSEAS  YSCOM  WASHINGTON  DC"  is  in  card  field  "info"  of  card  - 
addees  then 
hide  card  field  three 
else 

show  card  field  three 
end  if 

endopenCard 

*•  CARD  #9.  BUTTON  #1 :  Return 
on  mouseUp 
play  "RETURN" 
pop  card 
endmouseUp 


**  CARD  #9  BUTTON  #2;  PREV  PAGE  ••*•*•*♦»••••••**•••**•*•*•*••••**•* 

on  mouseUp 
go  to  card  "addee  info2" 
end  mouseUp 


•*  CARD  #9,  BUTTON  #3:  med  *••*•*•*•**•**•*••••••••*••*****•••• 

on  mouseUp 

if  "COMNAVMEDCOM  WASHINGTON  DC"  is  in  card  field  "info"  of 
card  addees  then 

answer  "That  address  has  already  been  entered"  with  "return” 
else 

put  "COMNAVMEDCOM  WASHINGTON  DC"  &  return  after  last  char  ^ 
of  card  field  "info”  of  card  addees 
hide  card  field  one 
end  if 

end  mouseUp 

**  CARD  #9,  BUTTON  #4‘  ig  •****••••*•*•••*••••*♦♦****••*••*•** 

on  mouseUp 
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if  “NAVINSGEN  WASHINGTON  DC "  is  in  card  field  "info"  of-, 
card  addees  then 

answer  "That  address  has  already  been  entered"  with  "return" 
else 

put  "NAVINSGEN  WASHINGTON  DC"  &  return  after  last  char 
of  card  field  "info"  of  card  addees 
hide  card  field  two 
end  if 

endmouseUp 

**  CARD  #9,  BUTTON  #5:  navsca  ••••••••••••••••*••••*•••*••*•*••••• 

oonxMiseUp 

if  "COMNAVSEASYSCOM  WASHINGTON  LkT"  is  in  card  field  "info"  of-, 
card  addees  thm 

answer  That  address  has  already  been  entered"  with  "return* 
else 

put  "COMNAVSEASYSCOM  WASHINGTON  DC"  &  remm  after  last  char  -. 
of  card  field  "info"  of  card  addees 
hide  card  field  three 
end  if 

end  mouseUp 

•*  CARD  #9,  BUTTON  #6:  shore  com  •••••••••••••••••*••*••••*****•••••* 

on  mouseUp 

ask  "Enter  PLAD  of  Major  shore  commander" 
if  it  is  in  card  field  "info"  of  card  addees  then 
answer  "That  address  has  already  been  entered”  with  "return" 
else 

if  it  is  not  empty  then 

put  it  &  return  after  Last  char  of  card  field  "info"  of  card  addees 
end  if 
end  if 

end  mouseUp 

••  CARD  #9,  BUTTON  #7:  NEXT  PAGE  ••***-*•••••••**•••••**•*•*•***»***•• 

on  mouseUp 
go  to  card  "addee  info4" 

end  mouseUp 

••  CARD  #10,  BUTTON  #1:  Return  ••***•*•••••••••••*•**••**•****•**•• 

on  mouseUp 
play  "RETURN" 
pop  card 

end  mouseUp 


*•  CARD  #10,  BUTTON  #2;  PREV  PAGE  •*•*••••••*•••••**•*••••••••••••**** 

on  mouseUp 
go  to  card  "adiee  info3" 
end  mouseUp 

•*  CARD  #10,  BUTTON  #3:  SYSCOM  •••••••••••••*•••••••••••••••••••••• 

on  mouseUp 

ask  "Enter  PLAD  of  SYSCOM" 
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if  it  is  in  card  field  "info"  of  card  addees  then 
answer  "That  address  has  already  been  entered"  with  "return" 
else 

if  it  is  not  empty  then 

put  it  &  return  after  last  char  of  card  field  "info"  of  card  addees 
end  if 
end  if 

endmouseUp 

••  CARD  #10,  BUTTON  #4:  CGUARD  **••••**•*•••**•••**•**••••*•*•••*•• 

on  mouseUp 

ask  "Enter  PLAD  of  Coast  Guard  District" 
if  it  is  in  card  field  "info"  of  card  addees  then 
answer  "That  addressee  has  already  been  entered"  with  "return" 
else 

if  it  is  not  empty  then 

put  it  &  return  after  last  char  of  card  field  "info"  of  card  addees 
end  if 
end  if 

end  mouseUp 

••  CARD  #10,  BUTTON  #5:  SOPA  **•***•**••*••*•••*•*•♦•••••**•*•*** 
on  mouseUp 

ask  "Enter  PLAD  of  SOPA" 
if  it  is  in  card  field  "info"  of  card  addees  then 
answer  "That  addressee  has  already  been  entered"  with  "return" 
else 

if  it  is  not  empty  then 

put  it  &  return  after  last  char  of  card  field  "info"  of  card  addees 
end  if 
end  if 

end  mouseUp 

••  CARD  #10,  BUTTON  #6:  addee  *••****•••**••••**••••***•*•♦*••**** 

on  mouseUp 
ask  "Enter  PLAD" 

if  it  is  in  card  field  "info"  of  card  addees  then 
answer  "That  addressee  has  already  been  entered"  with  "return" 
else 

if  it  is  not  empty  then 

put  it  &  return  after  last  char  of  card  field  "info"  of  card  addees 
end  if 
end  if 

end  mouseUp 

**  CARD  #1 1'  settings  *********************’■'************** 
oncloseCard 
global  drafter,  semo 
pul  card  field  ser_no  into  semo 
put  card  field  orig  into  drafter 
endcloseCard 

••  CARD  #11,  BUTTON#!:  Return  *•••***»**••*••**••*••••**••*•**•♦*• 
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on  mouseUp 
play  "RETURN" 
pop  card 
endmouseUp 

••  CARD  #11 ,  BUTTON  #2:  EXIT  •••*••••••••••••••••*•••*••*•*•••••• 

(XI  mouseUp 
goargos 
endmouseUp 


•*  CARD  #12.  BUTTON#!:  Return  *********************************** 
(XI  imxiseUp 
pop  card 
endmouseUp 

••  CARD  #13:  msg_file 
(xiopenCard 
show  field  1 
endopenCard 
(xicloseCard 
hide  field  1 
endcloseCard 

CARD  #13,  BUTTON  #1:  Print 
on  mouseUp 

ask  "Enter  message  name” 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  into  msgname 
go  to  card  msgname 
if  it  is  not  empty  then 

answer  "Message  not  found”  with  "Return” 
exit  mouseUp 
else 

printField(card  field  2) 
go  to  card  msg_file 
end  if 

end  mtxiseUp 


••  CARD  #13,  BUTTON  #2:  View  •*•••••*•*••••••*•••••••••••****••** 


on  mouseUp 

ask  "Enter  message  name" 
if  it  is  not  in  field  listing  then 
if  it  is  not  empty  then 
answer  it  &&.  "is  not  on  file"  with  "return" 
exit  mouseUp 
else 

exit  mouseUp 


end  if 
else 
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push  card 
go  to  card  it 
end  if 

endmouseUp 


••  CARD  #13.  BUTTON  #3:  Delete 
onmouaeUp 

ask  "Enter  message  name" 
if  it  is  not  in  field  listing  then 
if  it  is  not  empty  then 
answer  it  &&  "is  not  on  file"  with  "return" 
exitmouseUp 
else 

exit  mouseUp 
end  if 
else 

set  lockscreen  to  true 
put  it  into  icmpname 
find  tempname  in  field  listing 
put  the  foundLine  into  temp 
delete  temp 
push  card 
go  to  card  it 
doMenu  delete  card 
pop  card 

set  lockscreen  to  false 
end  if 

end  mouseUp 

••  CARD  #13,  BUTTON  #4:  Return  **•••»••*••*•••••••••**•*•••••••***• 

on  mouseUp 
pop  card 
end  mouseUp 


42 


APPENDIX  C.  SET  LIBRARY  STACK  SCRIPTS 

SC31IPTS  FOR  STACK:  Set  Ubrary 


•*  STACK  SCRIPT  *••*•**•*•***••••••*••*•••••*•••••*• 

onopenStack 
hide  field  field.name 
set  textAnows  to  true 
endopenStack 
*•  BKGND  #1.  FIELD  #2 
on  mouseUp 
end  mouseUp 

**  CARD  #1"  ampn  *•••****•*•♦•*••*••••**•••*••***•••• 
onopenCard 
show  card  field  ampn_id 
click  at  500,200 
hide  card  field  enter 

put  "AMPN/"  into  card  field  ainpn_field 
select  afiter  last  char  of  card  field  ampn.field 
endopenCard 
on  idle 

send  idle  to  card  field  ampn_field 
end  idle 

**  CARD  #1,  FIELD  #1:  ampn.field 
on  idle 

if  "AMPN/"  is  not  in  line  1  of  card  field  ainpn_field  then 
get  the  length  of  line  1  of  card  field  ampn_field 
put  char  5  to  it  of  line  1  of  card  field  ainpn_field  into  tcmpstring 
put  "AMPNA'  &  tempstring  into  line  1  of  card  field  ampn_field 
select  after  char  5  of  line  1  of  card  field  ampn_field 
end  if 

if  the  scroll  of  card  field  ampn_field  >  0  then 
hide  card  field  ampn_id 
else 

show  card  field  ampnjd 
end  if 
end  idle 
on  tabKey 
endlabKey 

•*  CARD  #1,  BUTTON  #1:  Enter 
on  mouseUp 

put "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

repeat  while  the  length  of  last  line  of  card  field  ampn_field  =  0 
delete  last  line  of  card  field  ampn_field 
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endrqieat 

if  the  number  of  lines  in  card  field  ampn_field  s  l  then 
if  ofEset(retum^d  6eld  ampn.field)  =  6  then 
beep 

hide  card  field  enter 
answer  "Field  is  empty"  with  "return" 
put  "AMI^r  into  card  field  ampn_field 
select  after  last  char  of  card  field  ampn.field 
exit  mouseUp 
end  if 
end  if 

if  the  length  of  card  field  ampn_field  <  6  then 
beq> 

bide  card  field  enter 
answer  "Field  is  empty"  with  "return" 
put  "AMPNr  into  card  field  ampn_field 
sdect  after  last  char  of  card  field  ampn.field 
exit  mouseUp 
end  if 

put  offsct("/r,card  field  ampn_field)  into  temp 
if  temp  o  0  then 
hide  card  field  enter 
beep 

answer  "EOSM  in  field”  with  "return" 
if  temp  =  5  then 

select  char  6  of  card  field  ampn.field 
exit  mouseUp 
else 

selea  char  temp  to  temp  +  1  of  card  field  ampn^field 
exit  mouseUp 
end  if 
end  if 

put "  Entering  Data"  into  line  5  of  card  field  enter 
put  word  1  of  card  field  ampn_field  into  tempstring 
repeat  with  j  s  2  to  the  number  of  words  in  card  field  ampn_field 
if  j  =  the  number  of  words  in  card  field  ampn_field  then 
put  the  length  of  word  j  of  card  field  ampn_field 
into  lastword 

if  the  length  of  tempsthng  +  lastword  <  67  then 
put " "  &  word  j  of  card  field  ampn_field  after  last  char-, 
of  tempstring 

put  tempstring  &  "//"  &  return  after  last  char  of  card  -i 
field  test  of  card  id  3502 
put  empty  into  field  field_name 
hide  card  field  enter 
pop  card 
exitrqieat 
dse 

put  tempstring  &  return  after  last  char  of  card  field  test  -< 
of  card  id  3502 

put  word  j  of  card  field  ampn_field  &  "//"  &  return  after 
last  char  of  card  field  test  of  card  id  3502 


44 


put  empty  into  field  field_name 
hide  card  field  ento* 
pop  card 
exitrq)eat 
end  if 
end  if 

put  the  length  of  word  j  of  card  field  ampn.field  into  wordlength 
put  the  length  of  tempstring  into  linelength 
if  linelength  +  wordlength  <  69  then 
if  j  s  1  then 

put  word  j  of  card  field  ampn_field  after  -■ 
last  char  of  tempstring 
next  repeat 
else 

put " "  &  word  j  of  card  field  ampn_field  after 
last  char  of  tempstring 
next  repeat 
end  if 
else 

put  tempstring  &  return  after  last  char  of  card  field  test 
of  card  id  3S02 
put  empty  into  tempstring 
put  word  j  of  card  field  ampn.field  into  tempstring 
next  repeat 
end  if 
endrq)eat 
end  mouseUp 

*•  CARD  #1,  BUTTON  #2:  Cancel 
on  mouseUp 

put  empty  into  card  field  ampn_field 
put  empty  into  field  field_name 
pc^card 
end  mouseUp 


••  CARD  #1,  BUTTON  #3;  Delete  •*••*••***•••••*•••*•••*♦•*••*•***** 

on  mouseUp 
set  cursor  to  4 
"  set  lockScreen  to  true 
go  to  card  scratch 
put  empty  into  firstline 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "ampnT  is  in  line  j  of  card  field  test  then 
put  j  into  firstline 
put  j  into  lastline 

if  offset(7r4ine  j  of  card  field  test)  =  0  then 
repeat  with  k  s  j  to  the  number  of  lines  in  card  field  test 
if  offset("/r.line  k  of  card  field  test)  =  0  then 
next  repeat 
else 

put  k  into  lastline 
exit  repeat 
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end  if 
end  repeat 
end  if 
exit  repeat 
end  if 
endr^ieat 

if  fiisdine  is  not  empty  then 
delete  line  firstline  to  lastline  of  card  field  test 
end  if 

go  to  card  ampn 
endmouseUp 

•*  CARD  #2:  exer  *••**••*•*•***••••*•••••••••*••••••• 

onopenCard 
hide  card  field  enter 

put  ”exeicise_name"  into  field  field.name 
select  after  last  char  of  card  field  exercise_name 
endopenCard 
on  idle 

if  "exCTcise_name"  is  in  field  field_name  then 
send  idle  to  card  field  exercise.name 
else 

send  idle  to  card  field  addljd 
end  if 
end  idle 

••  CARD  #2,  FIELD  #2:  exercise_name 
on  mouseEnter 

put  "exercise_name"  into  field  field_name 
select  after  last  char  of  card  field  exercise^name 
end  mouseEnter 
on  openField 

put  "exeicise_name"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  exercise_name  into  temp 
if  temp  >  56  then 
beep 

put  char  1  to  56  of  card  field  exercise_name  into  validstring 
put  validstring  into  card  field  exercise_name 
select  after  last  char  of  card  field  exercise_name 
end  if 

get  offeetC/', card  field  exercise_name) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  exercise.name 
select  after  last  char  of  card  field  ex»cise_name 
end  if 
end  idle 
on  tabKey 

put  "addljd”  into  field  field_name 
select  after  last  char  of  card  field  addljd 
end  tabKey 
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••  CARD  #2  FIELD  #3  •••••••••**••*••••••••••**•••**•*•** 

on  mouseEnter 

put  "addl.id"  into  field  field.name 
select  after  last  char  of  card  field  addljd 
end  mouseEnter 
onqxnFiekl 

put  "addl.id"  into  field  field.name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  addl_id  into  temp 
if  temp  >  16  then 
beep 

put  char  1  to  16  of  card  field  addl_id  into  validstring 
put  validstring  into  card  field  addl_id 
select  after  last  char  of  card  field  addl.id 
end  if 

get  (^set(T,card  field  addljd) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  addljd 
select  after  last  char  of  card  field  addl_id 
end  if 
end  idle 
on  tabKey 

put  "exercise_name"  into  field  field_name 
select  after  last  char  of  card  field  exercise^name 
end  tabKey 

••  CARD  #2,  BUTTON  #1:  Enter 
on  mouseUp 

put "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

if  card  field  exercise^name  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  1  is  MANDATORY.  It  is  empty"  with  "return” 
put  "exercise_name"  into  field  field_name 
select  after  last  char  of  card  field  exercise_name 
exit  mouseUp 
end  if 

if  card  field  addljd  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  2  is  MANDATORY.  It  is  empty"  with  "return" 
put  "addl_id"  into  field  field_name 
select  after  last  char  of  card  field  addl_id 
exit  mouseUp 
end  if 

put "  Entering  Data"  into  line  5  of  card  field  enter 
put  the  length  of  card  field  exercise_name  into  tempi 
put  the  length  of  card  field  addl_id  into  temp2 
if  tempi  +  temp2  <=  61  then 
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put  "EXER/"  &  card  field  cxercise_nainc  &  "F  &  card  field  add]_id 
"/r  &  return  after  last  char  of  card  field  test  of  card  id  3502 
else 

pul  "EXERT  &  card  field  exercise_name  &  return  &  T  &  card  field  -i 
addl_id  &  "//"  &  return  after  last  char  of  card  field  test  of  -• 
cardid3S02 
end  if 

put  empty  into  field  field.name 
pop  card 
endmouseUp 

••  CARD  #2,  BUTTON  #2:  Cancel  •••••••••••••••••*••••••••••••> 

on  mouseUp 

put  empty  into  card  field  exercise_name 
put  empty  into  card  field  addljd 
put  empty  into  field  field.name 
pop  card 
end  mouseUp 


••  CARD  #2,  BUTTON  #3;  Delete  ••••••••••••*••••••••••••••••••••••• 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  s  I  to  the  number  of  lines  in  card  field  test 
if  "excr/"  is  in  line  j  of  card  field  test  then 
if  offsctC'/rJine  j  of  card  field  test)  <>  0  then 
delete  line  j  of  card  field  test 
exit  repeal 
else 

delete  line  j  to  j  +  1  of  card  field  test 
exit  repeat 
end  if 
end  if 
end  repeat 
go  to  card  exer 
end  mouseUp 

**  CARD  #3'  oper  ***"*’******'********************■1’***** 
onopenCard 
hide  card  field  enter 
put  "codeword"  into  field  field_name 
select  after  last  char  of  card  field  codeword 
endopenCard 
on  idle 

if  "codeword"  is  in  field  field_name  then 
send  idle  to  card  field  codeword 
end  if 

if  "arig_refno"  is  in  field  field_name  then 
send  idle  to  card  field  orig_refho 
end  if 

if  "nickname"  is  in  field  field_name  then 
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send  idle  to  card  field  nickname 
end  if 

if  ’'nickname2"  is  in  field  field.name  then 
send  idle  to  card  field  nickname2 
end  if 
end  idle 

••  CARD  #3.  FIELD  #2:  CODEWORD  . . . 

on  mouseEnter 

put  "codeword"  into  field  field.name 
select  after  last  char  of  card  field  codeword 
end  mouseEnter 
on  openField 

put  "codeword"  into  field  field_name 
end  openField 
on  idle 

put  the  numbo'  of  chars  in  card  field  codeword  into  temp 
if  temp  >  32  then 
beep 

put  char  1  to  32  of  card  field  codeword  into  validstring 
put  validstring  into  card  field  codeword 
select  after  last  char  of  card  field  codeword 
end  if 

get  offset("/",card  field  codeword) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  codewcvd 
select  after  last  char  of  card  field  codeword 
end  if 
end  idle 
on  tabKey 

put  "orig_refno"  into  field  field.name 
select  a^  last  char  of  card  field  orig_refno 
end  tabKey 

••  CARD  #3,  FIELD  #4:  orig_refno  ••••*•••••*••••••*•••••*•**•***••*•* 

on  mouseEnter 

put  "orig_refno"  into  field  field_name 
select  after  last  char  of  card  field  orig_refno 
end  mouseEnter 
on  openField 

put  "orig_refno"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  orig^rcfho  into  temp 
if  temp  >  23  then 
beep 

put  char  1  to  23  of  card  field  orig_refno  into  validstring 
put  validstring  into  card  field  orig_refno 
select  after  last  char  of  card  field  orig_refno 
end  if 

get  offset("/",card  field  orig_refno) 
if  it  o  0  then 
beep 
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delete  char  it  of  card  field  orig_refno 
select  after  last  char  of  card  field  orig_refno 
end  if 
end  idle 
on  tabKey 

put  "nickname"  into  field  field_name 

after  last  char  of  card  field  nickname 

end  labKey  *.*•* 

on  mouseEnter 

put  "nickname"  into  field  field_name 
yJiyt  after  last  char  of  card  field  nickname 
end  mouseEnter 
on  openField 

put  "nickname"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  nickname  into  temp 
if  temp  >  23  then 
beep 

put  char  1  to  23  of  card  field  nickname  into  validstring 
pul  validstring  into  card  field  nickname 
select  after  last  char  of  card  field  nickname 
end  if 

get  offset(”/".card  field  nickname) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  nickname 
select  after  last  char  of  card  field  nickname 
end  if 
end  idle 
on  tabKey 

put  "nickname2"  into  field  field_pame 
select  after  last  char  of  card  field  nickname2 
end  tabKey 

••  CARD  #3,  FIELD  #8;  nickname2  •••*••*••**•*•••••*•*•••*••••••••*** 

on  mouseEnter 

put  "nickname2"  into  field  field_name 
select  after  last  char  of  card  field  nickname2 
end  mouseEnter 
on  openField 

put  "nickname2"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  nickname2  into  temp 
if  temp  >  23  then 
beep 

put  char  1  to  23  of  card  field  nickname2  into  validstring 
put  validstring  into  card  field  nickname2 
select  after  last  char  of  card  field  nickname2 
end  if 

gel  offsei("/",card  field  nickname2) 
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if  it  o  0  then 
beep 

ddete  char  it  of  card  field  nickname2 
select  after  last  char  of  card  field  nickname! 
end  if 
end  idle 
ontabKey 

put  "codeword”  into  field  field_name 
select  after  last  char  of  card  field  codeword 
eodtabKey 

••  CARD  #3,  BUTTON  #1:  Enter  *•***•**•••••••••••••**«  *••< 

(Ml  mouseUp 

put  ”  Checking  Data”  into  line  5  of  card  field  enter 
^how  card  field  enter 
set  ctirscM' to  4 

if  card  field  oxieword  is  empty  then 
hide  card  field  ent^ 
beep 

answer  "Field  1  is  MANDATORY.  It  is  empty”  with  "return" 
put  "ccxleword"  into  field  field_name 
select  after  last  char  of  card  field  codeword 
exit  mouseUp 
end  if 

if  card  field  orig_refno  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  2  is  MANDATORY.  It  is  empty”  with  "return" 
put  ”(Mig_re£ho”  into  field  field_name 
select  after  last  char  of  card  field  orig_refno 
exit  mouseUp 
end  if 

put  ”  Entering  Data"  into  line  5  of  card  field  enter 

if  card  field  nickname  is  empty  and  card  field  nickname!  is  empty 

then 

put  "OPER/”  &  card  field  codeword  &  "/"  &  card  field  orig_refno-> 
&  "/r  &  return  after  last  char  of  card  field  test  of  card  id  3502 
end  if 

if  card  field  nickname  is  not  empty  and  card  field  -i 
nickname!  is  empty  then 
put  the  length  of  card  field  codeword  into  tempi 
put  die  length  of  card  field  orig_refno  into  temp! 
put  the  length  of  card  field  nickname  into  temp3 
if  tempi  +  temp!  +  temp3  <=  60  then 
put  "OPER/"  &  card  field  ccxleword  &  ”r  &  card  field 
<Mig_refrio  &  ”/”  &  card  field  nickname  &  "/r  &  return  after 
last  char  of  card  field  test  of  card  id  350! 
else 

put  "OPER/”  &  card  field  codeword  &  "r  &  card  field 
orig_iefno  &  return  after  last  char  of  card  field  test 
of  card  id  350! 

put "/"  &  card  field  nickname  &  "/Z"  &  return  after  last  char  -i 
of  card  field  test  of  card  id  3502 
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end  if 
end  if 

if  card  field  nickname  is  empty  and  card  field -• 
nickname2  is  not  empty  then 
put  the  length  of  caM  field  codeword  into  tempi 
put  the  length  of  card  field  oiig_refho  into  temp2 
put  the  length  of  card  field  nickname2  into  temp3 
if  tempi  -1-  temp2  +  temp3  <»  S8  then 
put  "OPERT  &  card  field  codeword  &  T  &  card  field  -> 
orig_refiK}  &  T  &  &  T  &  card  field  nicknaine2  & 

’//"  &  return  after  last  char  of  card  field  test  of  card  id  3S02 
else 

put  "OPERT  &  card  field  codewtwd  &  T  &  card  field 
orig_rcfijo  &  T  &  &  return  after  last  char  of  card 

field  test  of  card  id  3S02 
put  T  &  card  field  nickname2  &  "ir  &  return  -i 
after  last  char  of  card  field  test  of  card  id  3S02 
end  if 
end  if 

if  card  field  nickname  is  not  empty  and  card  field  — < 
nickname2  is  not  empty  then 
put  the  length  of  card  field  codeword  into  tempi 
put  the  length  of  card  field  orig_refno  into  temp2 
put  the  length  of  card  field  nickname  into  temp3 
put  the  length  of  card  field  nickname2  into  temp4 
if  tempi  +  temp2  +  temp3  +  temp4  <=  59  then 
put  "OPER/”  &  card  field  codeword  &  T  &  card  field 
orig_refno  &  T  &  card  field  nickname  &  "/"  &  card  field 
iuckname2  &  "//"  &  return  after  last  char  of  card  field 
test  of  card  id  3502 
else 

if  tempi  +  temp2  +  temp3  <=  62  then 
put  "OPERT  &  card  field  codeword  &  "/"  &  card  field  -> 
(Mig_refno  &  "r  &  card  field  nickname  & 
reuim  afia  last  char  of  card  field  test  of  card  id  3502 
pul  ”/"  &  card  field  nickname2  &  7/"  &  return  after  last  -> 
char  of  card  field  test  of  card  id  3502 
else 

put  "OPER/"  &  card  field  codeword  AT  &  card  field 
orig_refno  &  return  after  last  char  of  card  field  test  of 
card  id  3502 

put  T  &  card  field  nickname  &  "r  &  card  field 
nickname2  &  "/r  &  return  after  last  char  of  card  field  -< 
test  of  card  id  3502 
end  if 
end  if 
end  if 

put  empty  into  field  field_name 
hide  card  field  enter 
pop  card 
end  mouseUp 
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•*  CARD  #3,  BUTTON  #2;  Cancel  •*•**•**•*•••*•••*••••••*•••*•***••• 

on  inouseUp 

put  empty  into  card  field  codeword 
put  empty  into  card  field  (Mig_refho 
put  empty  into  card  fidd  nickname 
put  empty  into  card  field  nickname2 
put  empty  into  field  field.name 
pop  card 
e^mouseUp 

••  CARD  #3,  BUTTON  #3:  Delete  **••••*••***••••*••*•*•*••••*•*••••* 

on  mouseUp 
setcivs(»to4 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  =  1  to  the  number  of  lines  in  card  fidd  test 
if  *oper/"  is  in  line  j  of  card  field  test  then 
if  offset("/r4ine  j  of  card  field  test)  <>  0  then 
delete  line  j  of  card  field  test 
exitrqieat 
else 

delete  line  j  to  j  +  1  of  card  field  test 
exit  repeat 
end  if 
end  if 
endrqieat 
go  to  card  oper 
endmouseUp 

**  CARD  #4  ************»**»4>**»»*****»*******»* 

onopenCard 
hide  card  fidd  enter 
global  msgtype,  drafter,  semo 
put  msgtype  into  card  field  msg_type 
put  drafto'  into  card  field  cxiginator 
put  semo  into  card  field  ser_no 
get  the  long  date 

put  char  1  to  3  of  wwd  2  of  it  into  tempmcmth 
repeat  with  j  =  2  to  3 

put  numToChar(charToNum(char  j  of  tempmonth)  -  32)  into 
char  j  of  tempmonth 
endrqieat 

put  tempmonth  into  card  field  month 
put  "msg_typc"  into  field  field_name 
select  after  last  char  of  card  field  msg^type 
endopenCard 
on  idle 

if  "msg_type"  is  in  field  field_name  then 
send  idle  to  card  field  msg_type 
end  if 

if  "originator"  is  in  field  field_name  then 
send  idle  to  card  field  originator 
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end  if 

if  "ser_no"  is  in  field  field_name  then 
send  idle  to  card  field  ser_no 
end  if 

if  "nxmth"  is  in  field  field.name  then 
send  idle  to  card  field  month 
end  if 
end  idle 

••  CARD  #4,  FIELD  #2:  msg_type  *••**••••**•*••*••••••*•*••*•*••**•* 

onmouseEnter 

put  "nisg_type"  into  field  field.name 
select  after  last  char  of  card  field  msg_type 
end  mouseEnter 
onopenHdd 

pot  "msg.type"  into  field  field_name 
select  after  last  char  of  card  field  msg_type 
endopenField 
on  idle 

put  the  number  of  chars  in  card  field  msg  type  into  temp 
if  temp  >  20  then 
beep 

put  char  1  to  20  of  card  field  msg_type  into  validstring 
put  validstring  into  card  field  msg_type 
select  after  last  char  of  card  field  msg_type 
end  if 

get  offsetCr.card  field  msg_type) 
if  it  o  0  then 
beep 

del^  char  it  of  card  field  msg_type 
select  after  last  char  of  card  field  msg_type 
end  if 
end  idle 
on  tabKey 

put  "originator"  into  field  field.name 
select  after  last  char  of  card  field  originator 
end  tabKey 

••  CARD  #4,  FIELD  #4:  ORIGINATOR  •••♦••••*••*•••*•*•••*••*•••******** 
on  mouseEnter 

put  "originator"  into  field  field_name 
select  after  last  char  of  card  field  originator 
end  mouseEnter 
on  openField 

put  "originator"  into  field  field_name 
select  after  last  char  of  card  field  originator 
endopenHeld 
on  idle 

put  the  number  of  chars  in  card  field  originator  into  temp 
if  temp  >  20  then 
beep 

put  char  1  to  20  of  card  field  originator  into  validstring 
put  validstring  into  card  field  originator 
select  after  last  char  of  card  field  originator 
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end  if 

get  offset(T,card  field  originator) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  originator 
select  after  last  char  of  card  field  originator 
end  if 
end  idle 
ontabKey 

put  "ser_no"  into  field  ficld_name 
select  after  last  char  of  card  field  ser_no 
endtabKey 

*•  CARD  #4.  FIELD  #6:  ser_no  •••*•*•**•*•••****•**•*••***•*•*••** 

on  mouseEnter 

put  ”ser_no"  into  field  fkld.name 
select  after  last  char  of  card  field  ser.no 
end  mouseEnter 
on  openField 

put  "ser_no”  into  field  field_name 
select  after  last  char  of  card  field  ser_no 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  ser_no  into  temp 
if  temp  >  7  then 
beep 

put  char  1  to  7  of  card  field  ser_no  into  validstring 
put  validstring  into  card  field  ser_no 
select  after  last  char  of  card  field  ser.no 
end  if 

get  offset("r,card  field  ser_no) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  ser_no 
select  after  last  char  of  card  field  ser_no 
end  if 
end  idle 
on  tabKey 

put  "month"  into  field  field_name 
select  after  last  char  of  card  field  month 
endtabKey 

••  CARD  #4,  FIELD  #8;  MONTH  •••**•**•*•••••**•••••**•••*•••***** 

on  mouseEnter 

put  "month"  into  field  field_name 
select  after  last  char  of  card  field  month 
end  mouseEnter 
on  openField 

put  "month"  into  field  field_name 
select  after  last  char  of  card  field  month 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  month  into  temp 
if  temp  >  3  then 
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beep 

put  char  1  to  3  of  card  field  month  into  validstring 
put  validstring  into  card  field  month 
select  after  last  char  of  card  field  month 
end  if 

get  oBsaCrxati  field  month) 
if  it  o  0  that 
beq) 

delete  char  it  of  card  field  month 
select  after  last  char  of  card  field  month 
end  if 
end  idle 
ontabKey 

put  *msg_type”  into  field  field_name 
select  after  last  char  of  card  field  msg_type 
endlabKey 

••  CARD  #4.  BUTTON  #1:  Enter  •♦••••*•**•**•**••••••*•*•••*****••• 

on  mouseUp 

put "  Checking  Data"  into  line  5  of  r^d  field  entCT 
show  card  field  enter 
set  cursor  to  4 

if  card  field  msg_type  is  empty  then 
hide  card  field  enter 
beep 

answo'  "Field  1  is  MANDATORY.  It  is  empty"  with  "return" 
put  "msg_type"  into  field  field_name 
select  after  last  char  of  card  field  msg_type 
exit  mouseUp 
end  if 

if  card  field  originator  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  2  is  MANDATORY.  It  is  empty"  with  "return” 
put  "originator"  into  field  field_name 
select  after  last  char  of  card  field  originator 
exit  mouseUp 
end  if 

if  card  field  ser_no  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  3  is  MANDATORY.  It  is  empty"  with  "return" 
put  "ser_no"  into  field  field_name 
select  after  last  char  of  card  field  ser_no 
exit  mouseUp 
end  if 

if  card  field  month  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  4  is  MANDATORY.  It  is  empty"  with  "return" 
put  "month"  into  field  field_name 
select  after  last  char  of  card  field  month 
exit  mouseUp 
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end  if 

put  ”  Entering  Data"  into  line  5  of  card  field  enter 
put  "MSGID/"  &  card  field  msg_type  &  T  &  card  field  originator  & 
"/"  &  card  field  ser_no  & "/"  &  field  month  &  "/r  &  return 
after  last  char  of  card  field  test  of  card  id  3502 
put  empty  into  field  field_name 
pop  card 
e^mouseUp 

*•  CARD  #4,  BUTTON  #2:  Cancel 
onmouseUp 

put  empty  into  card  field  msg_type 
put  empty  into  card  field  caiginatn' 
pot  empty  into  card  field  ser_no 
put  empty  into  card  field  month 
put  empty  into  field  field_name 
pc^card 
endmouseUp 

••  CARD  #4,  BUTTON  #3:  Delete 
on  mouseUp 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "msgid/"  is  in  line  j  of  card  field  test  then 
delete  line  j  of  card  field  test 
exitrq>eat 
end  if 
endrqieai 
go  to  card  msgid 
endmouseUp 


**  CARD  #5'  ref  •***'*********"*'***************•4"''**** 

onopenCard 
hide  card  field  enter 
if  field  field_name  is  empty  then 
put  "serial_ltr"  into  field  field_name 
select  after  last  char  of  card  field  serial_ltr 
else 

put  field  field_name  into  temp 
select  after  last  char  of  card  field  temp 
end  if 

ettdopenCard 
nn  idle 

if  "serial_ltr"  is  in  field  field.rtame  then 
send  idle  to  card  field  serial  Jtr 
end  if 

if  "msg_type"  is  in  field  field_name  then 
send  idle  to  card  field  msg_type 
end  if 

if  "originator"  is  in  field  field_name  then 
send  idle  to  card  field  originator 
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end  if 

if  "day_nK)nth"  is  in  field  field_name  then 
send  idle  to  card  field  day_month 
end  if 

if  "ser_no"  is  in  field  field_name  then 
send  idle  to  card  field  ser_no 
end  if 

if  "specjnotalion"  is  in  field  field_naine  then 
send  idle  to  card  field  spec.notation 
end  if 
end  idle 

••  CARD#5,  FIELD  #2:  serialjtr 
on  mouseEnter 

put  "serialjtr"  into  field  field.name 
sdect  after  last  char  of  card  field  serialjtr 
end  mouseEnter 
on  openField 

put  "serial_ltr"  into  field  field_name 
end  openField 
on  idle 

if  the  number  of  chars  in  card  field  serial_ltr  >  1  then 
beep 

put  char  1  of  card  field  serialjtr  into  validsthng 
put  validstring  into  card  field  soial  Jtr 
select  after  last  char  of  card  field  serial.ltr 
end  if 

if  card  field  serialjtr  is  not  empty  then 
get  card  field  serialjtr 

if  it  is  not  in  "ABCDEFGH]m.MNOPQRSTLJVWXYZ"  then 
beep 

put  empty  into  card  field  serialjtr 
select  after  last  char  of  card  field  serialjtr 
end  if 
end  if 
end  idle 
on  tabKey 

put  "msg_type"  into  field  rield_name 
select  after  last  char  of  card  field  msg_type 
end  tabKey 

*•  CARD  #5,  FIELD  #4:  msg_type  ••••••**•»•••*•••••••••**•*•••***••* 

on  mouseEnter 

put  "msg_type"  into  field  field_name 
select  after  last  char  of  card  field  msg_type 
end  mouseEnter 
ont^tenBeld 

put  "msg^type"  into  field  field_name 
e^  cqxnField 
on  idle 

put  the  number  of  chars  in  card  field  msg_type  into  temp 
if  temp  >  20  then 
beep 

put  char  1  to  20  of  card  field  msg_type  into  validstring 
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put  validstring  into  card  field  msg_type 
select  after  last  char  of  card  field  msg_type 
end  if 

get  offsetr/".card  field  msg_type) 
if  it  o  0  then 
beep 

del^  char  it  of  card  field  msg^type 
selea  after  last  char  of  card  field  insg_type 
end  if 
end  idle 
cmtabKey 

put  "originator"  into  field  field_name 
select  after  last  char  of  card  field  originator 
endtabKey 

•*  CARD  #5.  HELD  #6:  originaior  ••**•*••*•*•*•**••*•••••••••••*•••** 

on  mouseEnter 

put  "originator”  into  field  field.name 
select  after  last  char  of  card  field  originator 
end  mouseEnter 
on  openField 

put  "originator"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  originator  into  t^p 
if  temp  >  20  then 
beep 

put  char  1  to  20  of  card  field  originator  into  validstring 
put  validstring  into  card  field  originator 
select  after  last  char  of  card  field  originator 
end  if 

get  ofifsei(Y',card  field  originator) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  originator 
select  after  last  char  of  card  field  originaior 
end  if 
end  idle 
on  tabKey 

pul  "day_month"  into  field  field_name 
select  after  last  char  of  card  field  day_month 
endtabKey 

**  Card  #5,  field  #8:  day_month  *•***•*•••**•••••**•••••••*•*•**•••• 

on  mouseEnter 

put  "day_month"  into  field  field_name 
select  after  last  char  of  card  field  day_month 
end  mouseEnter 
on  openField 

put  "day_month"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  day_month  into  temp 
if  temp>  12  then 
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beep 

put  char  1  to  12  of  card  field  day.month  into  validstring 
put  validstring  into  card  field  day_month 
select  after  last  char  of  card  field  day.month 
end  if 

get  ofiset(T.card  field  day_month) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  day.month 
select  after  last  char  of  card  field  day^month 
end  if 
end  idle 
on  labKey 

put  ”ser_no"  into  field  field.name 
select  after  last  char  of  card  field  ser_no 
endiabKey 

*•  CARD  #5.  FIELD  #10:  ser.no  ••••*•*•••**•••••*•• 

on  mouseEnter 

put  "ser_no"  into  field  field_name 
select  after  last  char  of  card  field  ser_no 
end  mouseEnter 
on  c^nField 

put  "ser_no"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  ser_no  into  temp 
if  temp  >  7  then 
beep 

put  char  1  to  7  of  card  field  ser_no  into  validstring 
put  validstring  into  card  field  ser.no 
select  after  last  char  of  card  field  ser.no 
end  if 

get  offsct(Y',card  field  ser^no) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  ser_no 
select  after  last  char  of  card  field  ser_no 
end  if 
end  idle 
on  tabKey 

put  "q)cc_notation"  into  field  field_name 
select  after  last  char  of  card  field  spec_notation 
end  tabKey 

*•  CARD  #5,  FIELD  #12:  spec_notation  •••••••••••••• 

on  mouseEnter 

put  "q»ec_notation"  into  field  field_name 
select  after  last  char  of  card  field  spec_notation 
end  mouseEnter 
on  openField 

pul  "spec_noiation"  into  field  field_namc 
end  openField 
on  idle 
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put  the  number  of  chars  in  card  field  spec_notation  into  temp 
if  temp  >  5  then 
beep 

put  char  1  to  S  of  card  field  spec.notation  into  validstring 
put  validstring  into  card  field  spec_notation 
select  after  last  char  of  card  field  spec.notation 
end  if 

get  o£fset("/",card  field  spec_notation) 
if  it  o  0  then 
beep 

ddete  char  it  of  card  field  spec.notation 
select  after  last  char  of  card  field  spec_notation 
end  if 
end  idle 
on  tabKey 

put  "serial.ltr"  into  field  field.name 
select  after  last  char  of  card  field  serialjtr 
end  tabKey 

••  CARD  #5,  BUTTON  #1:  Continue  ••••••••••••••••••••••*•••••**•***** 

on  mouseUp 

put  card  field  serialjtr  into  card  field  serial_ltr  of  card  ref2 
put  card  field  msg_type  into  card  field  msg_type  of  card  refl 
put  card  field  originator  into  card  field  originator  of  card  ref2 
put  card  field  day_month  into  card  field  day_month  of  card  ref2 
put  card  field  ser_no  into  card  field  ser_no  of  card  ref2 
put  card  field  spec.notation  into  card  field  spec_notation  of  card 
ref2 

put  field  field.name  into  field  field_name  of  card  ref2 
go  to  card  ref2 
endmouseUp 

••  CARD  #5,  BUTTON  #2:  Enter  *••••*•••••••••••••••••••••••••*•**• 

on  mouseUp 

put  "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

if  card  field  seria!_ltr  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  1  is  MANDATORY,  It  is  empty"  with  "return" 
put  "serialjtr"  into  field  field_name 
select  after  last  char  of  card  field  serial_ltr 
exit  mouseUp 
end  if 

if  card  field  msg_type  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  2  is  MANDATORY.  It  is  empty"  with  "return" 
put  "m.sg_type"  into  field  field_name 
select  after  last  char  of  card  field  msg_type 
exit  mouseUp 
end  if 
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if  card  field  originator  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  3  is  MANDATORY.  It  is  empty"  with  "return" 
put  "wiginatOT"  into  field  field.name 
selea  after  last  char  of  card  field  originator 
exitmouseUp 
end  if 

if  card  6eld  day_month  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  4  is  MANDATORY.  It  is  empty"  with  "return" 
put  "day .month"  into  field  fieki.name 
select  ^r  last  char  of  card  field  day.month 
exit  mouseUp 
end  if 

put "  Entering  Data"  into  line  S  of  card  field  enter 
if  card  field  sCT.no  is  empty  and  card  field  spec.notation  is 
empty  then 

put  "REFr  &  card  field  serial.ltr  &"r  &  card  field  msg_type  & 

"/"  &  card  field  originates  &  "/”  &  card  field  day.month  &  "//"  & 
return  after  last  char  of  card  field  test  of  card  id  3502 
put  empty  into  field  field.name 
hide  card  field  enter 
pop  card 
exit  mouseUp 
end  if 

if  card  field  ser.no  is  not  empty  and  card  field  spec.notation 
is  empty  then 

put  the  length  of  card  field  msg_type  into  tempi 
put  the  length  of  card  field  originator  into  te.'np2 
put  the  length  of  card  field  day.month  into  temp3 
put  the  length  of  card  field  ier.no  into  temp4 
if  tempi  +  temp2  +  temp3  +  temp4  <=  58  then 
put  "REF/"  &  card  field  seiialjtr  &  "/"  &  card  field  msg_type  & 

"/"  &  card  field  originator  &  "/"  &  card  field  day  .month  &"/"&-> 
card  field  ser.no  &  "/f  &  return  after  last  char  of  card  field  -i 
test  of  card  id  3502 
put  empty  into  field  field.name 
hide  card  field  enter 
pt^card 
exit  mouseUp 
else 

put  "REF/”  &  card  field  serial.ltr  &  "/"  &  card  field  msg_type  &  -i 

"/"  &  card  field  originator  AT  &  card  field  day.month  &  return-. 

after  last  char  of  card  field  test  of  card  id  3502 

put  "r  &  card  field  ser.no  &  "/r  &  return  after  last  char 

of  card  field  test  of  card  id  3502 

put  empty  into  field  field.name 

hide  card  field  enter 

pop  card 

exit  mouseUp 
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end  if 
end  if 

if  card  field  scr_no  is  empty  and  card  field  spec_notatiOT 
is  not  empty  then 

put  "REFr  &  card  field  serial_ltr  &  "r  &  card  field 
msg_type  &  "r  &  card  field  originator  &  "/"  &  card  field  -i 
day_month  &  T  &  &  "r  &  card  field  spec_notation  &  "/r  -> 

&  return  afu?  last  char  of  card  field  test  of  card  id  3502 
put  empty  into  field  field.name 
hide  c^  field  enta 
pop  card 
exit  mouseUp 
else 

put  "REFr  &  card  field  serialjtr  &  "r  &  card  field  msg_type  & 

"r  &  card  field  originator  & "/"  &  card  field  day_month  &  "r  &  -> 
card  field  ser_no  &  T  &  card  field  spec.notadon  &  "/r  &  return  -« 
after  last  char  of  card  field  test  of  card  id  3502 
put  empty  into  field  field.name 
hide  card  field  enter 
pop  card 
exit  mouseUp 
end  if 

end  mouseUp 

••  CARD  #5,  BUTTON  #3:  Cancel  . . . 

on  mouseUp 

put  empty  into  card  field  serialjtr 
put  empty  into  card  field  msg_type 
put  empty  into  card  field  originator 
put  empty  into  card  field  day_month 
put  empty  into  card  field  ser.no 
put  empty  into  card  field  spec.notation 
put  empty  into  card  field  serialjtr  of  card  ref2 
put  empty  into  card  field  msg_type  of  card  ref2 
put  empty  into  card  field  originator  of  card  ref2 
put  empty  into  card  field  day_momh  of  card  ref2 
put  empty  into  card  field  ser_no  of  card  ref2 
put  empty  into  card  field  spec_noiauon  of  card  ref2 
put  empty  into  field  field_name 
pop  card 
end  mouseUp 

•*  CARD  #5,  BUTTON  #4;  Delete  •••••*•*•*•••••••••*•**••**••***•**• 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  ^  1  to  the  number  of  lines  in  card  field  lest 
if  ‘'refT  is  in  line  j  of  card  field  test  then 
if  offsei(7r4ine  j  of  card  field  test)  <>  0  then 
delete  line  j  of  card  field  test 
exit  repeal 
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else 

delete  line  j  to  j  +  1  of  card  field  test 
exit  repeat 
end  if 
end  if 
eadtepeat 
go  to  card  ref 
endmouseUp 

**  CARD  #6'.  ref2  *'*'*'''***‘***************************** 

onopenCard 
hide  card  field  enter 
if  fidd  field_name  is  empty  then 
pul  "serialjtr"  into  field  field_name 
select  after  last  char  of  card  field  serial  Jir 
else 

put  field  field_name  into  temp 
select  after  last  char  of  card  field  temp 
end  if 

endopenCard 
on  idle 

if  "seria]_ltr"  is  in  field  field_name  then 
send  idle  to  card  field  serialjtr 
end  if 

if  "msg_type"  is  in  field  field_name  then 
send  idle  to  card  field  msg_type 
end  if 

if  "originator"  is  in  field  field_name  then 
send  idle  to  card  field  originator 
end  if 

if  "day_monih"  is  in  field  field_name  then 
send  idle  to  card  field  day_month 
end  if 

if  "ser_no"  is  in  field  field_name  then 
send  idle  to  card  field  ser_no 
end  if 

if  "spec_noiation"  is  in  field  field_name  then 
send  idle  to  card  field  spec_notation 
end  if 
end  idle 

*•  CARD  #6,  FIELD  #2:  serialjtr  ••♦**•***♦••»*••*•••••*••*•*♦**••*** 

on  mouseEnter 

put  "serialjtr"  into  field  field_name 
select  after  last  char  of  card  field  serial_ltr 
end  mouseEnter 
on  openField 

put  "serialjtr"  into  field  field_riame 
end  openField 
on  idle 

if  the  number  of  chars  in  card  field  serialjtr  >  1  then 
beep 

pul  char  1  of  card  field  serial_ltr  into  validstring 
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put  validstring  into  card  field  serial_ltr 
select  after  last  char  of  card  field  serial_lcr 
end  if 

if  card  field  serial.ltr  is  not  empty  then 
get  card  field  serialjtr 

if  it  is  not  in  "ABCDEFGHUKLMNOPQRSTUVWXYZ"  then 

beep 

put  empty  into  card  field  serialjtr 
select  after  last  char  of  card  6eld  serialjtr 
end  if 
end  if 
end  idle 
ontabKey 

put  "msg_type"  into  field  field_name 
select  after  last  char  of  card  field  msg_type 
endtabKey 

••  CARD  #6,  FIELD  #4:  msg_type 
on  mouseEnter 

put  "msg_type"  into  field  field_name 
select  after  last  char  of  card  field  msg_type 
end  mouseEnter 
on  openField 

put  "msg_type'’  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  msg_type  into  temp 
if  temp  >  20  then 
beep 

put  char  1  to  20  of  card  field  msg_type  into  validstring 
put  validstring  into  card  field  msg_type 
select  after  last  char  of  card  field  msg_type 
end  if 

get  offset("/",card  field  msg_type) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  msg_type 
select  after  last  char  of  card  field  msg_type 
end  if 
end  idle 
on  tabKey 

put  "originator”  into  field  field_name 
select  after  last  char  of  card  field  cr  ginator 
endtabKey 

••  CARD  #6,  FIELD  #6:  originator  •*••**••*»••••••**•**••••***•****•*• 

on  mouseEnter 

put  "originator"  into  field  field_name 
select  after  last  char  of  card  field  originator 
end  mouseEnter 
on  openField 

put  "originator"  into  field  r)eld_name 
end  openField 
on  idle 
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put  the  number  of  chars  in  card  field  originator  into  temp 
if  temp  >  20  then 
beep 

put  char  1  to  20  of  card  field  originator  into  validstring 
put  validstring  into  card  field  originator 
select  after  last  char  of  card  field  originator 
end  if 

get  ofifset(T,card  field  originator) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  originator 
select  after  last  char  of  card  field  originator 
end  if 
endkOe 
on  tabKey 

put  "day_month"  into  field  field_name 
select  after  last  char  of  card  field  day  .month 
end  tabKey 

••  CARD  #6,  FIELD  #8;  day.month  ••••••••**••••••••••••••••••*••••*•• 

on  mouseEnier 

put  "day.month"  into  field  field.name 
select  after  last  char  of  card  field  day  .month 
end  mouseEnter 
on  openField 

put  "day.month"  into  field  field.name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  day.month  into  temp 
if  temp  >  12  then 
beep 

put  char  l  to  12  of  card  field  day.month  into  validstring 
put  validsning  into  card  field  day.month 
select  after  last  char  of  card  field  day.month 
end  if 

get  offset("/",card  field  day.month) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  day.month 
select  after  last  char  of  card  field  day.month 
end  if 
end  idle 
on  tabKey 

put  "ser.no"  into  field  field.name 
select  after  last  char  of  card  field  ser.no 
end  tabKey 

*•  CARD  #6,  FIELD  #10:  ser.no 
on  mouseEnter 

put  "ser.no"  into  field  field.name 
select  after  last  char  of  card  field  ser.no 
end  mouseEnter 
on  openField 

put  "ser.no"  into  field  field.name 
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end  openField 
on  idle 

put  the  number  of  chars  in  card  field  ser_no  into  temp 
if  temp  >  7  then 
beep 

put  char  1  to  7  of  card  field  s»_no  into  validstring 
put  validstring  into  card  field  ser_no 
select  after  last  char  of  card  field  ser_no 
end  if 

get  off^"r.card  field  ser_no) 
if  it  o  0  then 
beep 

del^  char  it  of  card  field  ser_no 
select  after  last  char  of  card  field  ser_no 
end  if 
end  idle 
on  tabKey 

put  "spec_notation"  into  field  field_name 
select  after  last  char  of  card  field  spec_notation 
end  tabKey 

*•  CARD  #6,  FIELD  #12:  spec.notation  ••*•*•••••••••••••••••••••••••••••*• 

on  mouseEnter 

put  "q)ec_notation"  into  field  field_name 
select  after  last  char  of  card  field  spec_notauon 
end  mouseEnter 
on  openField 

put  "specjotaiion"  into  field  field_name 
end  openField 
(Ml  idle 

put  the  number  of  chars  in  card  field  spec_notation  into  temp 
if  temp  >  5  then 
beep 

pul  char  1  to  5  of  card  field  spec_notation  into  validstring 
pul  validsoing  into  card  field  spec_notauon 
select  after  last  char  of  card  field  spec_notauon 
end  if 

get  offsetfY' .card  field  spec_notation) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  spec_notation 
select  after  last  char  of  card  field  spec_notation 
end  if 
end  idle 
on  tabKey 

put  "serial_ltr"  into  field  field_name 
select  after  last  char  of  card  field  serial.ltr 
end  tabKey 

••  CARD  #6.  BUTTON  #1 :  Continue 
on  mouseUp 

put  card  field  serialjtr  into  card  field  serialjtr  of  card  ref 
put  card  field  msg_type  into  card  field  msg_type  of  card  ref 
put  card  field  originalCM  into  card  field  originator  of  card  ref 
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put  card  field  day_inonth  into  card  field  day_month  of  card  ref 
pul  card  field  ser_no  into  card  field  ser_no  of  card  ref 
put  card  field  spec_notation  into  card  field  spec_notation  of  card  ref 
pul  field  field_namc  into  field  field_nanie  of  card  ref 
go  to  card  ref 
endmouseUp 

•*  CARD  #6.  BUTTON  #2:  Cancel  •**••***•••***•*•**•••*•••*••**••*•' 

on  mouseUp 

put  empty  into  card  field  serial_ltr 
put  empty  into  card  field  msg_type 
put  empty  into  card  field  originator 
put  empty  into  card  field  day_month 
put  empty  into  card  field  ser_no 
put  empty  into  card  field  spec_notaiion 
put  empty  into  card  field  serialjtr  (tf  card  reC2 
put  empty  into  card  field  msg_type  of  card  ref2 
put  «npty  into  card  field  originator  of  card  ref2 
put  empty  into  card  field  day_month  of  card  ref2 
put  empty  into  card  field  ser_no  of  card  ref2 
put  empty  into  card  field  spec_notation  of  card  reQ 
pul  empty  into  field  field_name 
pop  card 
end  mouseUp 

••  CARD  #6,  BUTTON  #3;  Enter 
on  mouseUp 

pul "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  VO  4 

if  card  field  serial_ltr  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  1  is  MANDATORY.  It  is  empty"  with  "return" 
put  "serialjff"  into  field  field_name 
select  after  last  char  of  card  field  serial_ltr 
exit  mouseUp 
end  if 

if  card  field  msg_type  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  2  is  MANDATORY.  It  is  empty"  with  "return" 
put  "msg_type"  into  field  field_name 
select  aftCT  last  char  of  card  field  msg_type 
exit  mouseUp 
end  if 

if  card  field  originator  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  3  is  MANDATORY.  It  is  empty"  with  "return" 
put  "originator"  into  field  field_name 
select  after  last  char  of  card  field  originator 
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exit  mouseUp 
end  if 

if  card  field  day.month  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  4  is  MANDATORY.  It  is  empty”  with  "return" 
put  "day_month"  into  field  field_name 
select  after  last  char  of  card  field  day.month 
exit  mouseUp 
end  if 

put "  Entering  Data"  into  line  S  of  card  fidd  enter 
if  card  field  ser_no  is  empty  and  card  field  q)ec_notation  is 
empty  then 

put  "REFr  &  card  field  serialjtr  AT  &  card  field  msg_type  &  -> 
"r  &  card  field  originator  &  "r  &  card  field  day_month  &  "/r 
return  after  last  char  of  card  field  test  of  card  id  3S02 
put  empty  into  field  field.name 
hide  card  field  enter 
pop  card 
exit  mouseUp 
end  if 

if  card  field  ser_no  is  not  empty  and  card  field  spec_notation  -> 
is  empty  then 

put  the  length  of  card  field  msg_type  into  tempi 
put  the  length  of  card  field  originator  into  temp2 
put  the  length  of  card  field  day_month  into  temp3 
put  the  length  of  card  field  ser_no  into  temp4 
if  tempi  +  temp2  +  temp3  +  temp4  <=  58  then 
put  "REF/"  &.  card  field  serialjtr  &  ”/"  &  card  field  msg_type  & 
"r  &  card  field  originator  &  "/”  &  card  field  day_month 
card  field  ser_no  &  "//"  &  return  after  last  char  of  card  field  -> 
test  of  card  id  3502 
put  empty  into  field  field_name 
hide  card  field  enter 
pop  card 
exit  mouseUp 
else 

put  "REF/"  &  card  field  serial_lu-  &  "/"  &  card  field  msg_type  & 
"r  &  card  field  originator  &  "/"  &  card  field  day_month  &  return-, 
after  last  char  of  card  field  test  of  card  id  3502 
put  "r  &  card  field  ser_no  &  "/r  &  return  after  last  char 
of  card  field  test  of  card  id  3502 
put  empty  into  field  field_name 
nide  card  field  enter 
pop  card 
exit  mouseUp 
end  if 
end  if 

if  card  field  ser_no  is  empty  and  card  field  spec^notaiion 
is  not  empty  then 

put  "REF/”  &  card  field  serial_ltr  &  "/"  &  card  field 
msg_type  &  "/”  &  card  field  originator  &  ”/"  &  card  field 
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day.month  &  T  &  &  T  «Sfc  card  field  spec.notation  &  7/"  -> 

&,  return  after  last  char  of  card  field  test  of  card  id  3502 
pot  empty  into  field  field_name 
hide  field  enter 
pc^card 
exit  mouseUp 
else 

put  "REF/"  &  card  field  serialjtr  &  T  &  card  field  msg_type  &  -> 

"/"  &  card  field  wiginator  &  T  &  card  field  day_mooth  &  T  &  -> 
card  field  ser_no  &  &  card  field  spec_notation  &  "ir  &  return 

after  last  char  of  card  field  test  of  card  id  3502 
put  «npty  into  field  field..name 
hide  card  field  enter 
pop  card 
exit  mouseUp 
end  if 

end  mouseUp 

••  CARD  #6,  BUTTON  #4;  Delete  *•**•••••*••••••••**•*•*••••••**•*** 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "ref/"  is  in  line  j  of  card  field  test  then 
if  offset("//’'4ine  j  of  card  field  test)  <>  0  then 
delete  line  j  of  card  field  test 
exit  repeat 
else 

delete  line  j  to  j  +  1  of  card  field  test 
exit  repeat 
end  if 
end  if 
endrqjeat 
go  to  card  ref 
end  mouseUp 

*•  CARD  #7;  flagword  *••••*•***•*•••••••••••••■•••••*••*•• 

onopenCard 
hide  card  field  enter 
global  msgflag 

put  irtsgflag  into  card  field  flagword 
global  msgflag2 

put  msgflag2  into  card  field  flagword2 
put  "flagword"  into  field  field_name 
select  after  last  char  of  card  field  flagword 
endopenCard 
on  idle 

if  "flagword"  is  in  field  field_name  then 
send  idle  to  card  field  flagword 
end  if 

if  "flagword2"  is  in  field  field_name  then 
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send  idle  to  card  field  flagwoid2 
end  if 
end  idle 

**  CARD  #7,  FIELD  #2;  FLAGWORD  *••♦*♦•*•••*•*♦•*•*♦•*•*•*••**•••*** 
on  mouseEnter 

put  "flagwcxd"  into  field  field_nanie 
select  after  last  char  of  card  field  llagword 
endmousdBnter 
on  openField 

put  "flagword"  into  field  field.name 
enl  cqtenField 
on  idle 

put  the  number  of  chars  in  card  field  flagword  into  temp 
if  temp  >  8  then 
beep 

put  char  1  to  8  of  card  field  flagword  into  validstring 
put  validstring  into  card  field  flagword 
select  after  last  char  of  card  field  flagword 
end  if 

get  offsetC'/".card  field  flagword) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  flagword 
select  after  last  char  of  card  field  flagword 
end  if 
end  idle 
on  tabKey 

put  "flagword2"  into  field  field_name 
select  after  last  char  of  card  field  flagwordZ 
end  tabKey 

*•  CARD  #7,  FIELD  #4;  flagword2 
on  mouseEnter 

pul  "flagword2"  into  field  field_name 
select  after  last  char  of  card  field  flagword2 
end  mouseEnter 
on  openField 

put  "flagword2"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  flagword2  into  temp 
if  temp  >  21  then 
beep 

put  char  1  to  21  of  card  field  flagword2  into  validstring 
put  validstring  into  card  field  flagword2 
select  after  last  char  of  card  field  flagword2 
end  if 

get  (rffsetCr,card  field  nagword2) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  flagword2 
select  after  last  char  of  card  field  flagword2 
end  if 
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end  idle 
on  tabKey 

put  "flagword"  into  field  field.name 
select  afva  last  char  of  card  field  flagword 
end  tabKey 

••  CARD  #7,  BUTTON  #1:  Enter  •••**•*•***•*•*••••••*••*•••••*••*•• 

on  mouseUp 

put "  Checking  Data"  into  line  S  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

if  card  field  flagword  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  1  is  MANDATORY.  It  is  empty”  with  "return" 
put  "flagword"  into  field  field_name 
select  after  last  char  of  card  field  flagword 
exit  mouseUp 
end  if 

if  card  field  flagword2  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  2  is  MANDATORY.  It  is  empty"  with  "return" 
put  "flagword2''  into  field  field_name 
select  after  last  char  of  card  field  flagword! 
exit  mouseUp 
end  if 

put "  Entering  Data"  into  line  5  of  card  field  enter 

put  "FLAGWORD/"  &  card  field  flagwcxd  &  "/"  &  card  field  flagword!  & 

"/r  &  reoim  after  last  char  of  card  field  test  of  card  id  350! 
put  empty  into  field  field.name 

hide  card  field  enter  v 

pop  card 
exit  mouseUp 
«id  mouseUp 


•*  CARD  #7,  BUTTON  #!:  Cancel  •*•***•***•••••**•♦*••••••••••••••** 

on  mouseUp 

put  empty  into  card  field  flagword 
put  empty  into  card  field  flagword! 
put  empty  into  field  field_name 
pop  card 
end  mouseUp 


•*  CARD  #7,  BUTTON  #3:  Delete  **••***•**•**••••••••••••••••••••••• 

on  mouseUp 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "flagwordT  is  in  line  j  of  card  field  test  then 
delete  line  j  of  card  field  test 
exit  repeat 
end  if 
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end  repeat 
go  to  card  flagword 
endmouseUp 

**  CARD  #8t  timeloc  *********************************■*'** 
onopenCard 
global  status 

put  status  into  card  field  report_status 
hide  card  field  enter 
put  "day_tiine"  into  field  field_naine 
select  after  last  char  of  card  field  day.time 
endopenCard 
on  idle 

if  "day_time"  is  in  field  field_nanie  then 
send  idle  to  card  field  day.time 
end  if 

if  'location"  is  in  field  field.name  then 
send  idle  to  card  field  location 
end  if 

if  "report_status''  is  in  field  field_name  then 
send  idle  to  card  field  repon_status 
end  if 
end  idle 

••  CARD  #8.  FIELD  #2:  day_time  •••**•*••*•••**•*•*•*••••»•***••*••• 
on  mouseEnier 

put  "day_time"  into  field  field_name 
select  after  last  char  of  card  field  day  .time 
end  mouseEnter 
on  openField 

put  "day .time"  into  field  field.name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  day_lime  into  temp 
if  temp  >  7  then 
beep 

put  char  1  to  7  of  card  field  day_time  into  validstring 
put  validsuing  into  card  field  day_time 
select  after  last  char  of  card  field  day_time 
end  if 

get  offset("r,card  field  day_time) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  day_time 
select  aftw  last  char  of  card  field  day_time 
end  if 
end  idle 
on  tabKey 

put  "location"  into  field  field_name 
select  after  last  char  of  card  field  location 
end  tabKey 

•*  CARD  #8,  FIELD  #4;  location  ••*******•••••••*••••••••**•••*••••• 

on  mouseEnter 

put  "location"  into  field  field_name 
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select  after  last  char  of  card  field  location 
end  mouseEnter 
on  (^nFieid 

put  "location"  into  field  field.natne 
e^openField 
on  idle 

put  the  number  of  chars  in  card  field  location  into  temp 
if  temp  >  20  then 
beep 

put  char  1  to  20  of  card  field  location  into  validstring 
put  validstring  into  card  field  location 
select  after  last  char  of  card  field  location 
end  if 

get  offset("r.card  field  location) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  location 
select  after  last  char  of  card  field  location 
end  if 
end  idle 
on  tabKey 

put  "report_status"  into  field  field_name 
select  after  last  char  of  card  field  report_status 
end  tabKey 

••  CARD  #8.  FIELD  #6;  rep«t_status 
on  mouseEnter 

put  "rqK)it_status"  into  field  field_name 
select  after  last  char  of  card  field  report.status 
end  mouseEnter 
on  openField 

put  "report_status"  into  field  field_name 
end  OpenField 
on  idle 

put  the  number  of  chars  in  card  field  report_status  into  temp 
if  temp  >  5  then 
beep 

put  char  1  to  5  of  card  field  report_status  into  validstring 
put  validstring  into  card  field  repon_status 
select  after  last  char  of  card  field  report_status 
end  if 

get  offset("r, card  field  report_status) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  report_status 
select  after  last  char  of  card  field  report_siatus 
end  if 
end  idle 
on  tabKey 

put  "day_time"  into  field  field_name 
select  after  last  char  of  card  field  day_time 
end  tabKey 

CARD  #8.  BUTTON  #1 :  Enter 
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on  mouseUp 

put "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

if  card  field  day.tiine  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  1  is  MANDATORY.  It  is  empty"  with  "return" 
put  "day_time"  into  field  field_name 
select  after  last  char  of  card  field  day_time 
exit  mouseUp 
end  if 

if  the  length  of  card  field  day_time  o  7  then 
hide  card  field  enter 
beep 

answer  "Date-Time  group  must  be  7  characters”  with  "renim" 
put  "day_time"  into  field  field_name 
select  after  last  char  of  card  field  day-time 
exit  mouseUp 
end  if 

if  card  field  location  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  2  is  MANDATORY.  It  is  empty"  with  "return" 
put  "location"  into  field  field_name 
select  after  last  char  of  card  field  location 
exit  mouseUp 
end  if 

if  card  field  report_siatus  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  3  is  MANDATORY.  It  is  empty"  with  "return" 
put  "report_status"  into  field  field_name 
select  after  last  char  of  card  field  report_status 
exit  mouseUp 
else 

if  card  field  report_status  o  "INIT"  and  card  field 
report_status  o  "FOLUP"  and  card  field  repxort^status  o  -i 
"FTNAL"  then 
hide  card  field  enter 
beep 

answer  "Field  3  entry  Must  be  TNIT,'FOLUF  or  "FINAL'"  with 
"return" 

put  "report_status"  into  field  field_name 
select  char  I  to  5  of  card  field  repon_status 
exit  mouseUp 
end  if 
end  if 

put "  Entering  Data"  into  line  5  of  card  field  enter 
put  TIMELOC/”  &  card  field  day_time  &  "T  &  card  field  location  &  — > 
"/"  &  card  field  rEport_status  &  "//"  &  return  after  last  char  of  -i 
card  field  test  of  card  id  3502 
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put  empty  into  field  field_name 
hide  card  field  enter 
pt^caid 
e^mouseUp 

•*  CARD  #8.  BUTTON  #2;  Cancel  ••••*•*•••••••**••••*•*•••*•••*•***• 

on  nnouseUp 

put  empty  into  card  field  day.time 
put  empty  into  card  field  location 
put  empty  into  card  field  report_status 
put  empty  into  field  field_name 
pop  can] 
endmouseUp 

••  CARD  #8.  BUTTON  #3:  Delete 
on  mouseUp 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "timeloti^  is  in  line  j  of  card  field  test  then 
delete  line  j  of  card  field  test 
exit  repeat 
end  if 
endrqKJt 
go  to  card  timeloc 
end  mouseUp 

**  CARD  #9"  narr  •••*•••••••***••**•♦••••***••••••*•* 

onopenCard 
hide  card  field  enter 
show  card  field  narrjd 
click  at  500^00 

put  "NARR/"  into  card  field  narr_field 
put  "narr_field”  into  field  field_name 
select  after  last  char  of  card  field  narT_field 
endopenCard 
on  idle 

send  idle  to  card  field  narT_fieId 
end  idle 

••  CARD  #9,  FIELD  #1;  narr_field  *••*•*•••*•*•••*•••••**••***•*••••*• 
on  idle 

if  "NARR/"  is  not  in  line  1  of  card  field  1  then 
get  the  length  of  line  1  of  card  field  1 
put  char  5  to  it  of  line  1  of  card  field  1  into  tempstring 
put  "NARR/"  &  tempstring  into  line  1  of  card  field  1 
select  after  char  5  of  line  1  of  card  field  1 
end  if 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  1 
GET  the  length  of  line  j  of  card  field  1 
if  it  >  69  then 
beep 

put  char  1  to  69  of  line  j  of  card  field  1  into 
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line  j  of  card  field  1 

answer  "Line  is  longer  than  69  characters”  with  "return" 
select  after  char  69  of  line  j  of  card  field  1 
exitrqieat 
end  if 
endiqieat 
end  idle 
ontabKey 
endiabKey 

••  CARD  #9.  BUTTON  #1;  Enter  ••••••••*•••***•••*•••••••••*•**•*•• 

on  tnouseUp 

pul '  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  curscM'  to  4 

Tcpai  while  the  length  of  last  line  of  card  field  narT_field  =  0 
delete  last  line  of  card  field  narr.field 
endrqieat 

if  the  number  of  lines  in  card  field  narr_field  =  1  then 
if  offset(retum,card  field  narr_field)  =  6  then 
beep 

hide  card  field  enter 
answu  "Field  is  empty"  with  "return" 
put  "NARR/"  into  card  field  narr_field 
select  after  last  char  of  card  field  narr_field 
exit  mouseUp 
end  if 
end  if 

if  the  length  of  card  field  narr_field  <  6  then 
beep 

hide  card  field  enter 
answer  "Field  is  empty”  with  "return" 
pul  "NARR/"  into  card  field  narr_field 
select  after  last  char  of  card  field  narr_field 
exit  mouseUp 
end  if 

pul  offset("//’’,card  field  narr_field)  into  temp 
if  temp  o  0  then 
hide  card  field  enter 
beep 

answer  "EOSM  in  field"  with  "raum" 
if  temp  =  5  then 

select  char  6  of  card  field  narr_field 
exit  mouseUp 
else 

select  char  temp  to  temp  +  1  of  card  field  narr_field 
exit  mouseUp 
end  if 
end  if 

pul "  Entering  Data"  into  line  5  of  card  field  enter 

put  the  number  of  lines  in  card  field  narr_field  into  temp 
if  temp  >  1  then 

if  the  length  of  line  temp  of  card  field  narr_field  >  67  then 
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put  the  number  of  words  in  line  temp  of  card  field  narT_field  -- 
into  tempi 

put  line  1  to  temp  - 1  of  card  field  nan_field  &  return  after 
last  char  of  card  field  "test"  of  card  id  3S02 
put  word  1  to  tempi  - 1  of  line  temp  of  card  field  narr_field  &  -> 
return  after  last  char  of  card  field  test  of  card  id  3502 
put  word  tempi  of  line  temp  of  card  field  narr_field  &  "IT  &  —> 
return  after  last  char  of  card  field  test  of  card  id  3502 
else 

put  card  field  nan_field  &  “ir  &  return 
aflCT  last  char  of  card  field  test  of  card  id  3502 
end  if 
else 

if  the  length  of  card  field  narr_field  >  67  then 
put  the  number  of  words  in  card  field  t»arr_field  into  tempi 
put  word  1  to  tempi  -  1  of  card  field  narr_field  &  return  -i 
after  last  char  of  card  field  test  of  card  id  3502 
put  word  tempi  of  card  field  narr_field  &  "//"  &  return  — • 
after  last  char  of  card  field  test  of  card  id  3502 
else 

put  card  field  narT_field  &  "//"  &  return 
after  last  char  of  card  field  test  of  card  id  3502 
ettd  if 
end  if 

put  empt)'  into  field  field_name 
hide  card  field  enter 
pop  card 
end  mouseUp 

••  CARD  #9,  BUTTON  #2:  Cancel 
on  mouseUp 

put  empty  into  card  field  narr_field 
put  empty  into  field  field_name 
pop  card 
end  mouseUp 

•*  CARD  #9,  BUTTON  #3;  Delete  *•*••*•»••***•*•••***••*••***•****** 

on  mouseUp 
set  cursor  to  4 
set  lockScrecn  to  true 
go  to  card  scratch 
put  empty  into  firstline 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "narrr  is  in  line  j  of  card  field  test  then 
put  j  into  firstline 
put  j  into  lastline 

if  offset(7rjiine  j  of  card  field  test)  =  0  then 
■repeat  with  k  -  j  to  the  number  of  lines  in  card  field  test 
d  offset("//",line  k  of  card  field  test)  =  0  then 
next  repeal 
else 

put  k  into  Lasllmc 
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exit  repeat 
end  if 
end  repeat 
end  if 
exitrq>eat 
end  if 
end  repeat 

if  firsdine  is  not  empty  then 
delete  line  firstline  to  lasUine  of  card  field  test 
end  if 

go  to  card  nan- 
end  mouseUp 

••  CARD  #10;  gentext 
onopenCard 
hide  card  deld  enter 

if  the  mouseV  >  197  and  the  mouseV  <  278  then 
put  "gentext_fteld"  into  field  field_name 
select  after  last  char  of  card  field  gentext.field 
else 

put  ’’text_indicator*’  into  field  field_name 
select  after  last  char  of  card  field  text_indicator 
end  if 

global  msgtype 

if  msgtype  is  "OPREP-3''  then 

put  "INCIDENT  IDENTIFICATION  AND  DETAILS"  into  card  field-. 
tcxt_indicator 

select  after  last  char  of  card  field  geniext_field 
end  if 

endopenCard 
on  idle 

if  field  field_name  contains  "texi_indicator"  then 
send  idle  to  card  field  texl_  indicator 
else 

send  idle  to  card  field  geniexi_field 
end  if 
end  idle 

•*  CARD  #10,  FIELD  #2;  iext_indicaior  *•••*•**•*••••*••*•**••***•••*•*••** 

on  mouseEnter 

put  "text_indicator”  into  field  field_name 
select  after  last  char  of  card  field  text_indicator 
end  mouseEnter 
on  openField 

put  "tcx»_indicator"  into  field  field_name 
end  opeiu^te’d 
on  idle 

pul  card  field  iext_indicator  into  lempstring 
get  the  length  of  tempstring 
if  it  >  58  then 
beep 

pul  char  1  to  58  of  me  into  validstring 
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put  validstring  into  me 
select  after  char  58  of  me 
end  if 

get  offsetrr,tempstting) 
if  it  o  0  then 
beep 

del^  char  it  of  card  field  text.indicator 
select  after  last  char  of  card  field  text.indicator 
end  if 
end  idle 

on  letumlnField 
tabKey 

end  tetumlnField 
(Mitabkey 

put  "gentext_field"  into  field  field_name 
if  card  field  gentext_field  =  return  then 
select  before  last  char  of  card  field  gentext_field 
else 

select  after  last  char  of  card  field  gentext_field 
end  if 
endtaU^ey 


••  CARD  #10.  FIELD  #4;  gentext.field  ••**••••••••••*•••••••*•*•*••*•••*•* 

on  mouseDown 
beep 

send  mouseUp  to  card  "gentext" 
end  mouseDown 
on  mouseEnter 

pul  ”gentexi_field"  into  field  field_name 
if  card  field  gentext_field  =  return  then 
select  before  last  char  of  card  field  geniexi_field 
else 

select  after  last  char  of  card  field  gentext_field 
end  if 

end  mouseEnter 
on  idle 
end  idle 
on  tabkey 

put  "text_indicator"  into  field  field_name 
select  after  last  char  of  card  field  texi_indicator 
end  tabkey 


*•  CARD  #10,  BUTTON  #1;  Enter 
on  mouseUp 

put "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

if  card  field  lextjndicator  is  empty  then 
hide  card  field  enter 
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beep 

answer  "Field  1  is  MANDATORY  It  is  empty"  with  "return" 
pul  "tcxt_indicator"  into  field  field_name 
select  after  last  char  of  card  6eld  text_indicator 
exit  mouseUp 
end  if 
repeat 

if  the  number  of  lines  in  card  field  gentext_6eld  >  1  then 
if  last  line  of  card  field  gentext_field  is  empty  then 
delete  last  line  of  card  field  gentext_field 
else 

exit  repeat 
end  if 
else 

if  the  length  of  line  1  of  card  field  geniext_field  <=  1  then 
if  card  field  gentext_field  =  return  or  -> 
card  field  gentext.field  is  empty  then 
beep 

hide  card  field  enter 

answer  "Field  2  is  MANDATORY  It  is  empty"  with  "return" 
select  before  last  char  of  card  field  geniext_field 
exit  mouseUp 
exit  repeat 
end  if 
end  if 
exit  repeal 
end  if 
end  repeat 

put  offsei("/r,card  field  gentexi_field)  into  temp 
if  temp  o  0  then 
hide  card  field  enter 
beep 

answer  "EOSM  in  field"  with  "return" 
select  char  temp  to  temp  +  1  of  card  field  gentext_ficld 
exit  mouseUp 
end  if 

put "  Enienng  Data"  into  line  5  of  card  field  entCT 
pul  "GENTEXT/"  &  card  field  lextjndicator  &  "/"  into  lempsuing 
repeal  with  j  =  1  to  the  number  of  words  in  card  field  genlext_field 
if  j  =  the  number  of  words  in  card  field  gentext_field  then 
put  the  length  of  word  j  of  card  field  geniext_field 
into  lastword 

if  the  length  of  lempstring  +  lastword  <  67  then 
put " "  &  word  j  of  card  field  gentexi_field  after  last  char-i 
of  lempstring 

pul  tempstring  &  "//"  &  return  after  last  char  of  card 
field  test  of  card  id  3502 
put  empty  into  field  field_name 
hide  card  field  enter 
pop  card 
exit  repeat 
else 
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put  tempstring  &  return  after  last  char  of  card  field  test  -i 
of  card  id  3502 

put  word  j  erf  card  field  geniext_field  &  7/"  &  return  after 
last  char  of  card  field  test  of  card  id  3502 
put  empty  into  field  field.name 
hide  caid  field  enter 
pop  card 
exit  repeat 
end  if 
end  if 

put  the  length  of  word  j  of  card  field  gentext.field  into  wordlength 
put  the  length  of  tempstring  into  linelength 
if  linelength  +  wordlength  <  69  then 
if  j  K  1  then 

put  word  j  of  card  field  gentext_field  after  -i 
last  char  of  tempstring 
nextrq)eat 
else 

put "  "  &  word  j  of  card  field  gentext_field  after 
last  char  of  tempstring 
next  repeat 
end  if 
else 

put  tempstring  &  return  after  last  char  of  card  field  test  -> 

of  card  id  3502 

put  empty  into  tempstring 

put  word  j  of  card  field  gentext_field  into  tempstring 
next  repeat 
end  if 
endrqjeat 
end  mouseUp 


•*  CARD  #10.  BUTTON  #2;  Cancel  •***********••••**•**♦***•••**♦•**** 

on  mouseUp 

put  empty  into  card  field  text_indicaior 
put  empty  into  card  field  geniexi_field 
put  empty  into  field  field_name 
hide  card  field  enter 
pc^card 
end  mouseUp 

••  CARD  #10,  BUTTON  #3;  Delete  •*••••••*•*•*••••••••••••***•****••* 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
go  to  card  scratch 
put  empty  into  firstline 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "gentext/"  is  in  line  j  of  card  field  test  then 
put  j  into  firstline 
put  j  into  lasiline 
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if  offset(7rJiine  j  of  card  field  test)  =  0  then 
repeat  with  k  =  j  to  the  number  of  lines  in  card  field  test 
if  offset(7/"4ine  k  of  card  field  test)  =  0  then 
nextrqteat 
else 

put  k  into  lastline 
exit  repeat 
end  if 
end  repeat 
end  if 
exitrqteat 
end  if 
end  repeat 

if  firsiiii'*  is  not  empty  *hcn 
delete  line  firstline  to  lastline  of  card  field  test 
end  if 

gotocard  gentext 
end  mouseUp 

••  CARD  #ir  rmks  •***•♦**•*••*•***•****'''••**••*••***♦ 

on  openCard 
hide  card  field  enter 
show  card  field  rmksjd 
click  at  500^00 

put  "RMKS/"  into  card  field  rmks.field 
put  "rmks.field"  into  field  field_name 
select  after  last  char  of  card  field  rmks_field 
end  openCard 
on  idle 

send  idle  to  card  field  nnks_field 
end  idle 

••  CARD  #11,  FIELD  #1;  rmks_field  •*••••••••••*•*•••***••*••••••**••*• 

on  idle 

if  "RMKSr  is  not  in  line  1  of  card  field  1  then 
get  the  length  of  line  1  of  card  field  1 
put  char  5  to  it  of  line  1  of  card  field  1  into  lempstring 
put  "RMKS/"  &  tempstring  into  line  1  of  card  field  1 
select  after  char  5  of  line  1  of  card  field  1 
end  if 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  1 
GET  the  length  of  line  j  of  card  field  1 
if  it  >  69  then 
beep 

put  char  1  to  69  of  line  j  of  card  field  1  into 
linej  of  card  field  1 

answer  "Line  is  longer  than  69  characters"  with  "remrn" 
select  after  char  69  of  line  j  of  card  field  1 
exit  repeal 
end  if 
endiqieat 
end  idle 
on  tabKey 
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endtabKey 

*•  CARD  #11.  BUTTON  #1:  Enter 
on  mouseUp 

put "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

rqteat  while  the  length  of  last  line  of  card  field  rmks.field  =  0 
delete  last  line  of  card  field  rmks.field 
endiqieat 

if  the  number  of  lines  in  card  field  nnks_field  =  1  then 
if  offset(ietum,card  field  rmks_field)  *  6  then 
beep 

hide  card  field  enter 
answer  "Field  is  empty"  with  "return" 
put  "RMKS/'  into  card  field  rmks_field 
select  after  last  char  of  card  field  rmks.field 
exit  mouseUp 
end  if 
end  if 

if  the  length  of  card  field  rmks_field  <  6  then 
beep 

hide  card  field  enco' 
answer  "Field  is  empty"  with  "return" 
put  "RMKS/"  into  card  field  nnks_field 
select  after  last  char  of  card  field  rmks_field 
exit  mouseUp 
end  if 

put  offset("//",card  field  rmks_field)  into  temp 
if  temp  o  0  then 
hide  card  field  enter 
beep 

answer  "EOSM  in  field"  with  "return" 
if  temp  =  5  then 

select  char  6  of  card  field  rmks_field 
exit  mouseUp 
else 

select  char  temp  to  temp  +  1  of  card  field  rmks_field 
exit  mouseUp 
end  if 
end  if 

put "  Entering  Data"  into  line  5  of  card  field  enter 
put  the  number  of  lines  in  card  field  rTnks_field  into  temp 
if  temp  >  1  then 

if  the  length  of  line  temp  of  card  field  rmks_field  >  67  then 
put  the  number  of  words  in  line  temp  of  card  field  rmks_field  - 
into  tempi 

put  line  1  to  temp  -  1  of  card  field  rTnks_field  &  return  after  -i 

last  char  of  card  field  "test"  of  card  id  3502 

put  word  1  to  tempi  -  1  of  line  temp  of  card  field  rmks_field  & 

return  after  last  char  of  card  field  test  of  card  id  3502 

put  word  tempi  of  line  temp  of  card  field  miks_field  &  "/r& 

return  after  last  char  of  card  field  test  of  card  id  3502 
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else 

pul  card  field  nnks_field  &  "IP  &  return  -i 
after  last  char  of  card  field  test  of  card  id  3502 
end  if 
else 

if  the  length  of  card  field  rmLs.field  >  67  then 
put  the  number  of  words  in  card  field  rmks_field  into  tempi 
put  word  1  to  tempi  - 1  of  card  field  rmks.field  &  return  -> 
after  last  char  of  card  field  test  of  card  id  3502 
put  word  tempi  of  card  field  rmks_field  &  "IP  &■  return  -■ 
after  last  char  (tf  card  field  test  of  card  id  3502 
else 

put  card  field  rmks_field  & "//"  &  return  -i 
after  last  char  of  card  field  test  of  card  id  3502 
end  if 
eitdif 

put  empty  into  field  field_name 
hide  ca^  field  enter 
pop  card 
end  mouseUp 

••  CARD  #11,  BUTTON  #2:  Cancel  •♦*•••••••••••••••*•**•***•*•*•*•*** 

on  mouseUp 

put  empty  into  card  field  rmks_field 
put  empty  into  field  field_ruune 
pop  card 
end  mouseUp 

**  CARD  #11,  BUTTON  #3:  Delete  •••••••••••••••••••••••••*••*•••••*• 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
go  to  card  scratch 
pul  empty  into  firstline 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "rmksT  is  in  line  j  of  card  field  test  then 
put  j  into  firstline 
put  j  into  lastline 

if  offsetC’//"  Jine  j  of  card  field  test)  =  0  then 
repeal  with  k  =  j  to  the  number  of  lines  in  card  field  test 
if  offset(7/",line  k  of  card  field  test)  =  0  then 
next  repeal 
else 

put  k  into  lastline 
exit  repeat 
end  if 
end  repeat 
end  if 
exii  repeal 
end  if 
end  repeat 

if  firstline  is  not  empty  then 
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delete  line  firstline  to  lastline  of  card  field  test 
end  if 

gotocardrmks 

endmouseUp 

**  CARD  #12:  clostext  **••••••**•••••••••*•••••*••*••***•* 

onopenCard 
hide  card  Md  enter 
put  ”decl_inst”  into  field  field.name 
select  after  last  char  oi  card  field  decl_inst 
endopenCard 
on  idle 

send  idle  to  card  field  decLinst 
end  idle 

**  CARD  #12,  FIELD  #2:  decl_inst 
on  mouseEnter 

put  "decl_inst"  into  field  field.name 
select  afto-  last  char  of  card  field  decl_inst 
end  mouseEnter 
on  openField 

put  "decl_inst"  into  field  field_name 
^  openField 
on  idle 

put  the  number  of  chars  in  card  field  decljnst  into  temp 
if  temp  >  58  then 
beep 

put  char  1  to  58  of  card  field  decl_inst  into  validstring 
put  validstring  into  card  field  decl.inst 
selea  after  last  char  of  card  field  decl.inst 
end  if 

get  offset(T.card  field  decl^inst) 
if  it  o  0  then 
beep 

delete  char  it  of  card  field  decl_inst 
select  after  last  char  of  card  field  decl_inst 
end  if 
end  idle 


**  CARD  #12,  BUTTON  #1:  Enter  •»*•*••••••••••••**•••••••••••••**•• 

on  mouseUp 

put "  Checking  Data"  into  line  5  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

if  card  field  decl_inst  is  empty  then 
hide  card  field  enter 
beep 

answer  "Field  is  empty"  with  "return” 
put  "decLinst"  into  field  field_name 
select  after  last  char  of  card  field  decLinst 
exit  mouseUp 
end  if 

put "  Entering  Data"  into  line  5  of  card  field  enter 
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put  "OjOSTEXT/"  &  card  field  decLinst  &  "IF  &  return  after  lasi-i 
char  of  card  field  test  of  card  id  3502 
put  empty  into  field  field.name 
hide  ct^  field  enter 
pc^card 
endmouseUp 

*•  CARD  #12,  BUTTON  #2:  Cancel  ••••••***••*•*•*••••*•*••*•*•»*••*•* 

onmouseUp 

put  empty  into  card  field  decl_inst 
put  empty  into  field  field.name 
pop  card 
e^mouseUp 

•*  CARD  #12,  BUTTON  #3;  Delete 
m  mouseUp 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  s  1  to  the  number  of  lines  in  card  field  test 
if  "clostext/'  is  in  line  j  of  card  field  test  then 
delete  line  j  of  card  field  test 
exit  repeat 
end  if 
endnqieat 
go  to  card  clostext 
end  mouseUp 

*•  CARD  #13;  decl 
onopenCard 
hide  card  field  enux 
put  "decl_inst"  into  field  field_name 
select  after  last  char  of  card  field  decl_inst 
endopenCard 
on  idle 

send  idle  to  card  field  decl_insi 
end  idle 

**  CARD  #13,  FIELD  #2:  decljnsl  ••»•**»»*•*••••••••*•**•••••**••**•* 

on  mouseEnier 

pul  "decLinst"  into  field  fieid_name 
select  after  last  char  of  card  field  decl_inst 
end  mouseEnter 
on  openField 

put  "decl_insi"  into  field  field_name 
end  openField 
on  idle 

put  the  number  of  chars  in  card  field  decl_inst  into  temp 
if  temp  >  25  then 
beep 

put  char  1  to  25  o'"  card  field  decl_inst  into  validstring 
put  validstring  into  card  field  decl_inst 
select  after  last  char  of  card  field  decl_insi 
end  if 
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get  offset(T,canl  field  decLinst) 
if  it  o  0  then 
beep 

del^  char  it  of  card  field  decl_inst 
select  after  last  char  of  card  field  decl_inst 
end  if 
end  idle 

**  CARD  #13.  BUTTON  #1:  Enter  •••••••••••*••••*•*•••••*•< 

on  mouseUp 

put  ”  Checking  Data"  into  line  S  of  card  field  enter 
show  card  field  enter 
set  cursor  to  4 

if  card  field  decl_inst  is  empty  then 
beep 

hide  card  field  enter 
answer  "Field  is  empty"  with  "return" 
put  "dccl_iru>t"  into  field  field_name 
select  after  last  char  of  card  field  decl_inst 
exit  mouseUp 
end  if 

put  "  Entering  Data"  into  line  5  of  card  field  enter 
put  "DECL/"  &  card  field  decl_inst  &  "//"  &  return  after  last  char 
of  card  field  test  of  card  id  3502 
put  empty  into  field  field_name 
pop  card 
end  mouseUp 

•*  0\RD  #13,  BUTTON  #2:  Cancel  . . 

on  mouscUn 

put  empty  into  card  field  decl_inst 
put  empty  into  field  field_name 
pop  card 
end  mouseUp 


**  CARD  #13,  BUTTON  #3;  Delete  •••••*••*•••♦***••*••*•*******••**** 

on  mouseUp 
set  lockScreen  to  true 
go  to  card  scratch 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  test 
if  "decl/"  is  in  line  j  of  card  field  test  then 
delete  line  j  of  card  field  test 
exit  repeal 
end  if 
endr^Kat 
go  to  card  decl 
end  mouseUp 

••  CARD  #14,  FIELD  #1;  test  •••••*•*•••**••*••••*•••••••••**•••* 

on  idle 

if  "AMPN/"  is  not  in  line  1  of  card  field  1  then 
get  the  length  of  line  1  of  card  field  1 


88 


put  char  S  to  it  of  line  1  of  card  field  1  into  tempstring 
put  "AMPNr  &■  tempstring  into  line  1  of  card  field  1 
selea  after  char  S  of  line  1  of  card  field  1 
end  if 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  1 
GET  the  length  of  line  j  of  card  field  1 
if  it  >  69  then 
beep 

put  char  1  to  69  of  line  j  of  card  field  1  into  -> 
line  j  of  card  field  1 

answer  "Line  is  longer  than  69  characters'  with  "return" 
select  after  char  69  of  line  j  of  card  field  1 
exit  repeat 
end  if 
endrqKat 
end  idle 

••  CARD  #14,  BUrrON#!;  Cancel 
on  mouseUp 

put  empty  into  field  field_name 
pop  card 
end  mouseUp 
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APPENDIX  D.  TRAINING  STACK  SCRIPTS 


SCRIPTS  FOR  STACK:  Training 


•*  STACK  SCRIPT  ••*•*♦••*•••*••**••*•••*•*••••••••• 

function  validDate  date 
put  date  into  tempdaie 

if  the  length  of  tempdaie  <  6  or  the  length  of  tempdate  >  8  then 
return  false 
else 

if  the  length  of  tempdate  =  6  then 
if  char  1  of  tempdaie  is  not  in  "123456789"  then 
return  false 
end  if 

if  char  2  of  tempdate  o  "/"  then 
return  false 
end  if 

if  char  3  of  tempdate  is  not  in  "123456789”  then 
return  false 
end  if 

if  char  4  of  tempdate  o  ’7"  then 
return  false 
end  if 

if  char  5  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  6  of  tempdate  ls  .tot  in  "1234567890"  then 
return  false 
end  if 
end  if 

if  the  length  of  tempdate  =  7  then 
if  char  3  of  tempdate  =  then 
if  char  1  of  temjxlau;  is  not  in  "12"  then 
return  false 
end  if 

if  char  2  of  tempdaie  is  not  in  ”012"  then 
return  false 
end  if 

if  char  4  of  tempdaie  is  not  in  "123456789"  then 
return  false 
end  if 

if  char  5  of  tempdate  <>  '7'  then 
return  false 
end  if 

if  char  6  of  tempdate  is  not  in  "  1 234567890"  then 
return  false 
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end  if 

if  char  7  of  tempdate  is  not  in  "1234567890”  then 
return  false 
end  if 
else 

if  char  2  of  tempdate  =  "T  th«i 
if  char  1  of  tempdate  is  not  in  "123456789"  then 
return  false 
end  if 

if  char  3  of  tempdate  is  not  in  "123"  then 
return  false 
end  if 

if  char  4  of  tempdate  is  not  in  ”1234567890"  then 
return  false 
end  if 

if  char  5  of  tempdate  o  "/"  then 
return  false 
end  if 

if  char  6  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  7  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  1  of  tempdate  =  2  then 
if  char  3  of  tempdate  =  3  then 
reuim  false 
else 

if  char  3  of  tempdate  =  2  then 
if  char  4  of  tempdate  =  9  then 
put  char  6  to  7  of  tempdate  into  year 
if  year  mod  4  o  0  then 
return  false 
end  if 
end  if 
end  if 
end  if 
end  if 

if  char  I  of  tempdate  is  in  "469"  then 
if  char  3  of  tempdate  =  3  then 
if  char  4  of  tempdate  o  0  then 
return  false 
end  if 
end  if 
end  if 

if  char  3  of  tempdate  =  3  then 
if  char  4  of  tempdate  >  1  then 
return  false 
end  if 
end  if 
end  if 
end  if 
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end  if 

if  the  length  of  tempdate  =  8  then 
if  char  3  of  tempdtue  o  T  then 
return  false 
end  if 

if  char  6  of  tempdate  o  T  then 
return  false 
end  if 

if  char  1  of  tempdate  o  1  then 
return  false 
end  if 

if  char  2  of  tempdate  is  not  in  "On"  then 
return  false 
end  if 

if  char  4  of  tempdate  is  notin  ”123"  then 
return  false 
end  if 

if  char  5  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  7  of  tempdate  is  not  in  ”1234567890”  then 
return  false 
end  if 

if  char  8  of  tempdate  is  not  in  ”1234567890”  then 
return  false 
end  if 

if  char  2  of  tempdate  ^  1  then 
if  char  4  of  tempdate  =  3  then 
if  char  5  of  tempdate  <>  0  then 
return  false 
end  if 
end  if 
end  if 

if  char  4  of  tempdate  =  3  then 
if  char  5  of  tempdate  >  1  then 
return  false 
end  if 
end  if 
end  if 
end  if 
return  true 
end  validDate 
function  validQtr  qtr 
if  the  length  of  qtr  o  4  then 
return  false 
end  if 

if  char  1  of  qtr  is  not  in  "1234"  then 
return  false 
end  if 

if  char  2  of  qtr  is  not  in  "-r  then 
return  false 
end  if 
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if  char  3  of  qtr  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  4  of  qtr  is  not  in  "1234567890"  then 
return  false 
end  if 
return  true 
end  validQtr 

function  goodDate  starudate 
convert  date  to  seconds 
convert  start  to  seconds 
if  date  <  start  then 
return  false 
end  if 

convert  date  to  daieltems 
convert  start  to  dateltems 
if  item  2  of  datft  >  item  2  of  start  >  2  then 
return  false 
end  if 

if  item  1  of  date  >  item  1  of  start  then 
return  false 
end  if 
return  true 
end  goodDate 

function  expDate  compDate,penod 
convert  compDate  to  dateltems 
put  item  2  of  compDate  +  period  into  month 
repeat  until  month  <  13 
put  month  - 12  into  month 

put  item  1  of  compDate  +  1  into  item  1  of  compDate 
end  repeat 

put  month  into  item  2  of  compDate 
if  item  2  of  compDate  =  2  and  item  3  of  compDate  >  29  then 
put  "29"  into  item  3  of  compDate 
end  if 

convert  compDate  to  short  date 
return  compDate 
end  expDate 
function  milDatc  date 
if  date  is  empty  then 
return  empty 
end  if 

convert  date  to  abbr  date 
if  the  length  of  item  2  of  date  =  6  then 
put  "0"  &  char  6  of  item  2  of  date  into  temp 
else 

put  char  6  to  7  of  item  2  of  date  into  temp 
end  if 

put  space  &  char  2  of  item  2  of  date  after  last  char  of  temp 
put  numToChar(charToNum(char  3  of  item  2  of  date)  -  32) 
after  last  char  of  temp 

put  numToChar(charToNum(char  4  of  item  2  of  date)  -  32) 
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after  last  char  of  temp 

put  i^>ace  &  char  4  to  5  of  item  3  of  date  after  last  char  of  temp 
retumtemp 
endmilDate 
function  msgDate  date 
if  date  is  empty  then 
letuni  empty 
end  if 

convert  date  to  dateltems 
put  char  3  to  4  of  item  1  of  date  into  temp 
if  the  length  of  item  2  of  date  =  1  then 
put  "0"  &  item  2  of  date  after  last  char  of  temp 
else 

put  item  2  of  date  after  last  char  of  temp 
end  if 

if  the  length  of  item  3  of  date  =  1  then 
put  "0"  &  item  3  of  date  after  last  char  of  temp 
else 

put  item  3  of  date  after  last  char  of  temp 
end  if 
renim  temp 
end  msgDate 
function  convertQtr  qtr 
put  char  1  of  qtr  *  3  -  2  into  tempdate 
put  T  &  1  after  last  char  of  tempdate 
put  T  &■  char  3  to  4  of  qtr  after  last  char  of  tempdate 
return  tempdate 
end  convent 


••  BACKGROUND  #1:  Operations  ••••*•••••••••••••••••**•••••••••••• 

on  openStack 
hide  message  box 
show  menuBar 
pass  openStack 
end  openStack 

•*  CARD  #1,  BUTTON  #1:  return  •*•••••••••***••••••••••••••••****»* 

on  mouseUp 
go  to  operations 
ettdmouseUp 

•*  CARD  #1,  BUTTON  #2:  exit  . . 

on  mouseUp 
goargos 
end  mouseUp 


••  CARD#l,BUTTON#3:Training 

•  ***«r*4i**«4>**4i»»«**»*»  *•**»»  *»«»»*»» 

on  mouseDown 

put  "PQSNew  Schedule J^ecord  Accomplishmeni>lodify  Schedule, Delete  Schedule.Draw  Chart  "  into  menul 
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pul  return  &  "STR-TRADA.View-Updaie  Data  base  J>raft  Trarep"  after  menul 
put  return  &.  "Lesson  Plans"  after  menul 
get  HPopupMenu(menu  1,0,80,65) 
if  it  is  not  zero  then 
Put  Item  1  of  it  into  TheLine 
put  Item  2  of  it  into  Theltem 
If  TheLine  =  1  and  Theltem  =  2  then 
go  to  card  newsked 
end  if 

If  TheLine  =  1  and  Theltem  =  3  then 
go  to  card  reccM'd 
end  if 

If  TheLine  =  1  and  Theltem  =  4  then 
go  to  card  modify 
end  if 

If  TheLine  =  1  and  Theltem  =  5  then 
go  to  card  skedflle 
end  if 

if  TheLine  =  1  and  Theltem  =  6  then 
go  to  card  draw 
end  if 

if  TheLine  =  2  and  Theltem  =  2  then 
go  to  card  view_data 
end  if 

if  TheLine  *  2  and  Theltem  =  3  then 
go  to  card  uarep 
end  if 
end  if 

end  mouscDown 

**  CARD  #2'  newsked  **•••**•*••••••*••*•••••••••••*••*** 

onopenCard 

put  card  field  start  into  oldstan 
put  empty  into  card  field  title 
put  empty  into  card  field  sian 
put  empty  into  card  field  sked_box 
ask  "Title  of  New  schedule" 
if  it  is  not  empty  then 
put  it  into  card  field  title 
repeat  until  validQtr(it) 
ask  "Enter  calendar  quarter  of  schedule" 
if  validQtr(it)  then 

put  convertQtr(it)  into  card  field  start 
select  after  last  char  of  card  field  enier_box 
exitrq)eat 
else 

ask  "Entfl-  calendar  quarter  of  schedule" 
if  validQtr(it)  then 

put  convertQtr(it)  into  card  field  start 
select  after  last  char  of  card  field  enier_box 
exit  repeat 


end  if 
endrq)eat 

if  old^ait  o  card  field  start  then 
send  mouseUp  to  card  button  draw 
end  if 

select  after  last  char  of  card  field  enter_box 
else 

send  mouseUp  to  card  button  "return" 
end  if 

endopenCard 

•*  CARD  #2,  FIELD  #4:  enter_box  •••••••••••••••••••••••• 

on  labKey 

send  mouseUp  to  card  button  "enter.info" 
end  labKey 

••  CARD  #2.  BUTTON  #1:  Save  Sked  •*••*•••••••••••••*••■ 

on  mouseUp 

if  card  field  sked.box  is  empty  then 
answer  "No  schedule  to  save"  with  "return" 
exit  mouseUp 
else 

set  lockMessages  to  true 

set  lockScreen  to  uue 

put  card  field  stan  into  startdate 

put  card  field  title  into  skedtitle 

put  card  field  title  &  " "  into  skedname 

put  the  length  of  card  field  start  into  len 

if  len  =  6  then 

put  (char  1  of  card  field  stan  2)/3  after  last  char  of  skedname 
put  char  len  -  2  to  len  of  card  field  start  after  last  char  of  -i 
skedname 

go  to  card  skedname 
else 

put  (char  1  to  2  of  card  field  start  +  2)/3  after  last  char 
of  skedname 

put  char  len  -  2  to  len  of  card  field  start  after  last  char  of 
skedname 

go  to  card  skedname 
end  if 

if  the  result  is  empty  then 

beep 

go  to  card  newsked 

answer  "That  schedule  title  is  saved"  with  "Cancel"  or-> 
"Change  title"  or  "Replace  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

if  it  is  "Change  title"  then 
send  mouseUp  to  card  button  "change  title" 
exit  mouseUp 
else 

go  to  card  skedname 

put  card  field  sked_box  of  card  newsked  into  card  field  sked 
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put  skedtitle  into  card  field  title 
put  staitdate  into  card  field  start 
go  to  card  newsked 
put  empty  into  card  field  title 
put  empty  into  card  field  sked_box 
cut  mouseUp 
end  if 
end  if 
end  if 

aet  lockscreen  to  true 

doMenu  ”new  card" 

act  the  name  of  this  card  to  skedname 

go  to  card  skedname 

doMenu  "new  field" 

set  name  of  card  field  1  to  "sked" 

set  style  of  card  field  1  to  scrolling 

aetiect  of  card  field  1  to 

set  textfont  of  card  field  1  to  courier 

set  textsize  of  card  field  1  to  12 

doMenu  "new  field" 

set  name  of  card  field  2  to  "title" 

set  style  of  card  field  2  to  transparent 

set  rect  of  card  field  2  to  0,6^20^3 

set  textfunt  of  card  field  2  to  courier 

set  textsize  of  card  field  2  to  12 

doMenu  "new  field" 

set  name  of  card  field  3  to  "start" 

set  style  of  card  field  3  to  transparent 

set  rect  of  card  field  3  to  427,6,509^3 

set  textfont  of  card  field  3  to  courier 

set  textsize  of  card  field  3  to  12 

put  card  field  sked.box  of  card  newsked  into  card  field  sked 
put  skedtitle  into  card  field  title 
put  startdate  into  card  field  stan 
choose  browse  tool 

put  empty  into  card  field  title  of  card  newsked 
put  empty  into  card  field  sked_box  of  card  newsked 
go  to  card  skedfile 

put  skedname  &  return  after  Iasi  char  of  card  field  listing 
set  lockMessages  to  false 
go  to  card  newsked 
set  kxkscreen  to  false 
select  after  last  char  of  card  field  enter_box 
end  if 

endmouseUp 

••  CARD  #2,  BUTTON  #2;  Delete  Sked  •***•••••••••••• 

on  mouseUp 

if  card  field  sked_box  is  empty  then 
answer  "No  schedule  to  delete"  with  "return" 
else 

put  empty  into  card  field  enter_box 
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put  empty  into  card  field  sked.box 
put  empty  into  card  field  title 
put  empty  into  card  field  start 
send  openCard  to  card  newsked 
end  if 

endmouseUp 

CARD  #2,  BUTTON  #3:  Return  . . 

on  mouseUp 

answer  "Unsaved  schedule  will  be  lost"  with  "OK"  or  "Return" 
if  it  is  "return"  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

put  empty  into  card  field  title 
put  empty  into  card  field  sked_box 
put  empty  into  card  field  enter_box 
go  to  card  training 
end  mouseUp 

••  CARD  #2,  BUTTON  #4.  rnter_info  •••••••••••••••••••••••••••****••••* 

on  mouseUp 

if  card  field  tide  is  empty  then 

answCT  "Schedule  must  have  a  tide"  with  "Cancel"  or  "Tide" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "change  ude" 
end  if 
end  if 

if  card  field  start  is  empty  then 

answer  "No  schedule  quarter  entered"  with  "Cancel"  or  "Enter" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "change  qtr" 
send  mouseUp  to  card  button  "draw" 
end  if 
end  if 

if  line  1  of  card  field  enter_box  is  empty  then 
ask  "No  lesson  name.  Enter  lesson  name" 
if  it  is  empty  then 

put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

put  it  into  line  1  of  card  field  enter_box 
end  if 

put  line  1  of  card  field  cnter_box  &  ","  after  last  char-, 
of  tempname 

put  line  2  of  card  field  enter_box  into  it 
repeat  until  valjdDate(it)  is  true  and 
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goodI>8te(cani  field  startjt)  is  true 
if  validDatefit)  is  false  then 
ask  it  &&  "Not  a  valid  date.  Enter  correct  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exitmouseUp 
end  if 

if  goodDate(card  field  stan,it)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
end  repeat 

if  the  number  of  lines  in  card  field  sked.box  >=  IS  then 
answCT  "Schedule  is  full  (15  Items  max)"  with  "Cancel”  or-i 
"Save  sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "save  sked" 
exit  mouseUp 
end  if 
end  if 

put  it  after  last  char  of  tempname 

put  tempname  &  ",s"  &  return  after  last  char  of  card  field  sked_box 
put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter^box 
end  mouseUp 


•*  CARD  #2,  BUTTON  #5;  Delete  Item 
on  mouseUp 

if  card  field  sked_box  is  empty  then 
answer  "No  lessons  to  delete”  with  "return" 
exit  mouseUp 
end  if 

ask  "Enter  lesson  name” 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
else 

put  it  into  tgt 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  sked_box 
if  tgt  =  item  1  of  line  j  of  card  field  sked_box  then 
delete  line  j  of  card  field  sked_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

if  j  =  the  number  of  lines  in  card  field  sked_box  then 
answer  "Lesson  not  found"  with  "Return" 
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select  after  last  char  of  card  field  enter_box 
end  if 
endrqieat 
end  if 

endmouseUp 

••  CARD  #2,  BUTTON  #6:  Change  Title  •••••••••••• 

onmouseUp 
ask  ”Enter  new  title" 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter.box 
exit  mouseUp 
else 

put  it  into  card  field  title 
select  after  last  char  of  card  field  enter.box 
end  if 

endmouseUp 

•*  CARD  #2.  BUTTON  #7:  Change  Qtr  •**•*••••••••■ 

on  mouseUp 

ask  "Enter  new  Quarter  (Q/YY)" 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
else 

if  validQtr(it)  then 
put  char  1  of  it  •  3  -  2  into  tempdate 
put  "r  &  1  after  last  char  of  tempdate 
put  T  &  char  3  to  4  of  it  after  last  char  of  tempdate 
put  tempdate  into  card  field  start 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
else 

repeat  until  validQtr(it) 

ask  "Invalid-  E”'?'"  calendar  quarcr  of  schedule” 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

if  validQtr(it)  then 
put  char  1  of  it  •  3  -  2  into  tempdate 
put  T  &.  1  after  last  char  of  tempdate 
put  T  &  char  3  to  4  of  it  after  Ijist  char  of  tempdate 
put  tempdate  into  card  field  start 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
end  repeat 
end  if 
end  if 

end  mouseUp 
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••  CARD  #2.  BUTTON  #8;  DRAW  * . . 

on  mouseUp 

if  card  field  start  is  empty  then 
exit  mouseUp 
end  if 

set  cursor  to  4 

show  card  field  wwking 

set  lockScreen  to  true 

choose  pencil  tool 

click  at  SO.l  10 

click  at  400,100 

choose  select  tool 

drag  from  0,80  to  190,290 

type  "x"  with  commandKey 

(bag  from  360,80  to  513,200 

type  "x"  with  commandKey 

choose  text  tool 

set  textSize  to  9 

set  textFont  to  geneva 

set  texiAlign  to  left 

set  lextStyle  to  plain 

set  lextHeight  to  9 

click  at  49,103 

type's" 

click  at  63,103 

type  "M" 

click  at  79,103 

type  T" 

click  at  94,103 

typc"W" 

click  at  109,103 

type"T" 

click  at  126,103 

typc'F" 

click  at  140,103 

type's" 

out  card  field  stan  into  temp 
convert  temp  to  long  date 
click  at  48,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  115  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  +  15  •  loc,lineloc 
if  item  3  of  temp  >  9  then 

type  item  3  of  temp 
else 

type  "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
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put  bneloc  +  13  ir*'o  lineioc 
end  if 

convert  temp  uj  seconds 
put  86^00  r  temp  into  temp 
convert  temp  to  dateltems 
cndrqwat 

convert  temp  to  long  date 
click  at  48.204 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  216  into  linelw 
rqteat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  -I-  IS  *  loc,lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
el^ 

type  "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineioc  +13  into  lineioc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
end  repeat 
click  at  387,103 
type's' 
click  at  401,103 
typc'M" 
click  at  417,103 
typc'T" 
click  at  432,103 
type'W" 
click  at  447,103 
type  'T" 
click  at  464,103 
type'F" 
click  at  478,103 
type's' 

convert  temp  to  long  date 
click  at  386,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  1  IS  into  lineioc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  369  +  IS  •  loc,lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
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else 

type "  "  &  item  3  of  temp 
end 

if  loc  s  7  then 
put  lineloc  +13  into  lineloc 
end  if 

cooveit  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
endrqpeat 
choose  browse  tool 
hide  card  field  working 
endmouseUp 

••  CARD  #3,  BUTTON  #1:  Return  «■•••••••••••••••••*••••••••••••••••• 

on  mouseUp 
go  to  card  training 
end  mouseUp 

••  CARD  #3.  BUTTON  #2;  Delete  Schedule  •••**•*••*•*•*••••••••••••******•*** 

on  mouseUp 
set  lockScreen  to  true 
set  lockMessages  to  true 
if  card  field  listing  is  empty  then 
answer  "No  schedules  on  file"  with  "Return" 
exit  mouseUp 
end  if 

ask  "Enter  name  of  schedule  to  delete" 
if  it  is  empty  then 
exit  mouseUp 
else 

put  "card"  &&  quote  &  it  &  quote  into  lempname 
go  to  tempname 
end  if 

if  the  result  is  not  empty  then 
repeat  until  'he  result  is  empty 
go  to  card  "skedfile" 

ask  "Schedule  not  found.  Enter  schedule  name" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  rqpeat 
end  if 

doMenu  "delete  card" 
go  to  card  skedfile 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  listing 
if  it  is  in  line  j  of  card  field  listing  then 
delete  line  j  of  card  field  listing 
exit  repeat 
end  if 
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endiqjeat 
end  mouseUp 

••  CARD  #4:  recwd 
onopenCard 

put  card  field  start  into  oldstan 
put  card  field  listing  of  card  skedfile  into  card  field  listing 
show  card  field  listing 
hide  card  field  title 
set  lockScreen  to  true 
set  lockMessages  to  true 
ask  '^ter  schedule  name" 
if  it  is  empty  then 
hide  card  field  listing 
show  card  field  title 
send  mouseUp  to  card  button  "return" 
exit  openCard 
else 

put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  fielo  skedname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  if 

if  the  result  is  not  empty  then 
repeat  until  the  result  is  empty 
go  to  card  "record” 

ask  "Schedule  not  found.  Enter  schedule  name" 
if  it  is  empty  then 
hide  card  field  listing 
show  card  field  title 
send  mouseUp  to  card  button  "return" 
exit  openCard 
end  if 

put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  repeat 
end  if 

put  the  short  id  of  this  card  into  card  field  cardjd  of  card  record 
put  c&'d  field  sked  into  card  field  sked_box  of  card  record 
put  card  field  title  into  card  field  title  of  card  record 
put  card  field  start  into  card  field  start  of  card  record 
go  to  card  "record” 
set  lockScreen  to  false 
if  oldstart  o  card  field  start  then 
send  mouseUp  to  card  button  draw 
end  if 

hide  card  field  listing 
sh -w  card  field  title 
s  -xlcMessages  to  false 

'  l  after  last  Line  of  card  field  enter_box 


endopenCard 

••  CARD  #4,  FIELD  #1:  enter.box  . . . 

on  tabKey 

send  mouseUp  to  card  button  "enter.info" 
end  tabKey 

*•  CARD  #4,  BUTTON  #1:  Return  **•*••••••••*•••••••••••••*•••••*••• 

on  mouaeUp 

answer  "Unsaved  changes  will  be  lost"  with  "OK"  or  "Return" 
if  it  is  "return"  then 
exit  mouseUp 
end  if 

put  empty  into  card  field  sked_box 
put  empty  into  card  field  title 
put  empty  into  card  field  enter_box 
go  to  card  training 
end  mouseUp 

••  CARD  #4,  BUTTON  #2:  enterjnfo 
on  mouseUp 

if  line  1  of  card  field  entfir_box  is  empty  then 
ask  "No  lesson  name.  Enter  lesson  name” 
if  it  is  empty  then 

put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

put  it  into  line  1  of  card  field  enter_box 
end  if 

put  line  1  of  card  field  enter.box  into  lessonname 
put  line  1  of  card  field  enter_box  &  after  last  char-> 
of  tempname 

put  line  2  of  card  field  enter_box  into  it 
repeal  until  validDatefit)  is  true  and 
goodDatefcard  field  staruO  is  true 
if  validDaie(:t)  is  false  then 
ask  it  &&  "Not  a  valid  date,  Enter  correct  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  fiek’  enier_box 
exit  mouseUp 
end  if 

if  goodDatefcard  field  start,it)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
endrq)eal 
put  it  into  tempdate 

put  tempdate  after  last  char  of  tempname 

repeal  with  j  =  1  to  the  number  of  lines  in  card  field  sked_box 
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if  lessonname  » item  1  of  line  j  of  card  field  sked.box  then 
put  tempname  &  ".c"  into  line  j  of  card  field  sked_box 
put  empty  into  card  field  enter.box 
select  after  last  char  of  card  field  enier_box 
exit  repeat 
end  if 

if  j  « the  number  of  lines  in  card  field  sked.box  then 
answer  "Lesson  not  found"  with  "return" 
put  empty  into  card  field  enter_box 
selea  after  last  char  of  card  field  enter.box 
exitmouseUp 
end  if 
endrqieat 
endinouseUp 

•*  CARD  #4.  BUTTON  #3:  Save  Changes 
on  mouseUp 

if  card  field  sked_box  is  empty  then 
answer  "No  schedule  to  save"  with  "Return" 
exit  mouseUp 
end  if 

put  card  field  caidjd  into  card  Jd 

put  card  field  sked_box  into  card  field  sked  of  card  id  card.id 

put  empty  into  card  field  skedname 

put  empty  into  card  field  sked.box 

put  empty  into  card  field  title 

put  empty  into  card  field  enter_box 

show  card  field  "msg" 

wait  60 

hide  card  field  "msg" 
send  openCard  to  card  "reccHd" 
end  mouseUp 

*•  CARD  #4,  BUTTON  #4:  Cancel  Changes  ••••••••••••••••**••••••••••••**•*•* 

on  mouseUp 

put  card  field  card  Jd  into  card  Jd 

put  card  field  sked  of  card  id  cardjd  into  card  field  sked_box 
select  after  last  char  of  card  field  enter_box 
end  mouseUp 

••  CARD  #4.  BUTTON  #5:  Get  Schedule 
on  mouseUp 

put  card  field  start  into  oldstart 
put  card  field  listing  of  card  skedfile  into  card  field  listing 
show  card  field  listing 
hide  card  field  title 
set  lockMessages  to  true 
set  lockScreen  to  true 
ask  "Enter  schedule  name" 
if  it  is  empty  then 
hide  card  field  listing 
show  card  field  title 
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send  mouseUp  to  card  button  "return" 
exit  mouseUp 
else 

put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
put  "card”  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  if 

if  the  result  is  not  empty  then 
repeat  until  the  result  is  empty 
go  to  card  "record" 

ask  "Schedule  not  found.  Enter  schedule  name" 
if  it  is  empty  then 
hide  card  field  listing 
show  card  Held  title 
send  mouseUp  to  card  button  "return" 
exit  mouseUp 
end  if 

put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  repeat 
end  if 

put  the  short  id  of  this  card  into  card  field  caidjd  of  card  record 
put  card  field  sked  into  card  field  sked.box  of  card  record 
put  card  field  title  into  card  field  title  of  card  record 
put  card  field  start  into  card  field  start  of  card  recwd 
go  to  card  "record" 
set  lockScreen  to  false 
if  oldstan  o  card  field  start  then 
send  mouseUp  to  card  buaon  draw 
end  if 

hide  card  field  listing 
show  card  field  title 
set  lockScreen  to  false 

select  after  last  char  of  card  field  enter_box  of  card  record 
end  mouseUp 

•*  CARD  #4,  BUTTON  #6;  Delete  Change  •••••••**•••••••*•*•••*••*•***•**•*• 

on  mouseUp 
ask  "Enter  lesson  name” 
if  it  is  empty  then 

put  empty  into  card  field  enter_box 
select  idter  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

put  it  into  lessonname 
put  it  &  after  last  char-, 
of  tempname 
ask  "Enter  date  scheduled" 
if  it  is  empty  then 
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exit  mouseUp 
end  if 

repeat  until  validDate(it)  is  trtie  and  -< 
goodDate(caid  field  starUt)  is  true 
if  vaiidDate(it)  is  fidse  then 
ask  it  &&  "Not  a  valid  date,  Enter  correct  date" 
end  if 

if  it  is  empty  then 

selea  after  last  char  of  card  field  enter_box 
exitmouseUp 
end  if 

if  goodDate(card  field  starUt)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
endtqjeat 
put  it  into  tempdaie 

put  tempdate  after  last  char  of  tempname 
repeat  with  j  =  1  to  the  number  of  lines  in  card  field  sked_box 
if  lessonname  s  item  1  of  line  j  of  card  field  sked_box  then 
put  tempname  &  ",s"  into  line  j  of  card  field  sked_box 
put  empty  into  card  field  enter.box 
select  after  last  char  of  card  field  enter_box 
exitrqieat 
end  if 

if  j  >  the  number  of  lines  in  card  field  sked.box  then 
answer  "Lesson  not  found"  with  "return" 
end  if 
endrqieat 
end  mouseUp 


*•  CARD  #4,  BUTTON  #7:  DRAW  •*••♦•*•*•••••••••••••••*••**•••••** 

on  mouseUp 

if  card  field  start  is  empty  then 
exit  mouseUp 
end  if 

show  card  field  working 

set  cursor  to  4 

set  lockScreen  to  true 

choose  pencil  tool 

click  at  50,110 

click  at  400,100 

choose  select  tool 

drag  from  0,80  to  160,290 

type  "x"  with  commandKey 

(teg  from  360,80  to  513,200 

type  "x"  with  commandKey 

choose  text  tool 

set  textSize  to  9 
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set  textFont  to  geneva 

set  textAlign  to  left 

set  textStyle  to  plain 

set  textHdght  to  9 

click  at  49,103 

type's" 

click  at  63,103 

lype'M" 

click  at  79,103 

lype-T" 

click  at  94,103 

type-W" 

click  at  109,103 

typcT" 

click  at  126,103 

typcT' 

click  at  140,103 

type's" 

put  card  field  start  into  temp 
convert  temp  to  long  date 
click  at  48,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  1  IS  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  +  15  *  locjineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type  "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  +13  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
endrq)eat 

convert  temp  to  long  date 
click  at  48,204 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  216  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  +  15  •  loc, lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 
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type "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  4-13  into  lineloc 
end  if 

convert  temp  to  seconds 
pot  86400  -t-  temp  into  temp 
convot  temp  to  dateltems 
endrq)eat 
click  at  387.103 
typc"S" 
click  at  401,103 
typc’M" 
click  at  417,103 
typc"T" 
click  at  432,103 
typc’W" 
click  at  447,103 
typc"T" 
click  at  464,103 
type-F- 
click  at  478,103 
type"S" 

convert  temp  to  long  date 
click  at  386,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  1  IS  into  Unel^ 
repeat  while  item  2  of  temp  s  mon 
put  item  7  of  temp  into  loc 
click  at  369  -t- 13  *  loc,lineIoc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
el% 

type "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  -«■  13  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
endrqteat 
choose  browse  tool 
hide  card  field  working 
end  mouseUp 

**  CARD  #5'  modify  ************************************ 

onopenCard 

put  card  field  start  into  oldstart 

put  card  field  listing  of  card  skedfde  into  card  field  listing 
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show  card  field  listing 
hide  card  field  tide 
set  lockMessages  to  true 
set  lockSoeen  to  true 
ask  "Enter  schedule  name" 
if  it  is  empty  then 

send  mouseUp  to  card  button  "return” 
exitopenCard 
else 

put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skrdname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  if 

if  the  result  is  not  empty  then 
rqjeat  until  the  result  is  empty 
go  to  card  "modify" 

ask  "Schedule  not  found.  Enter  schedule  name" 
put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  repeat 
end  if 

put  the  short  id  of  this  card  into  card  field  card_id  of  card  modify 
put  card  field  sited  into  card  field  sked_box  of  card  modify 
put  card  field  title  into  card  field  title  of  card  modify 
put  card  field  start  into  card  field  start  of  card  modify 
go  to  card  "modify" 
set  lockscreen  to  false 
if  oldstart  <>  card  field  start  then 
send  mouseUp  to  card  buaon  draw 
end  if 

hide  card  field  listing 
show  card  field  title 

select  after  last  char  of  card  field  enter_box 
endopenCard 

**  CARD  #5,  FIELD  #1:  enier_box  ••*•••••••••**•••*••*•••**••****•••* 

on  tabKey 

send  mouseUp  to  card  button  ''enter_info’' 
end  tabKey 

*•  CARD  #5,  BUTTON  #1;  Return  ••***•*•••••••••••••••••**••*••***** 

on  mouseUp 

answer  "Unsaved  changes  will  be  lost"  with  "OK"  or  "Renim" 
if  it  is  "return"  then 
exit  mouseUp 
end  if 

put  empty  into  card  field  sked_box 
put  empty  into  card  field  title 
put  empty  into  card  field  enier_box 
go  to  card  training 
end  mouseUp 
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••  CARD  #5,  BUTTON  #2:  Delete  Lesson  ••••*•••••••*•••*••••*•*****••••••** 

on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
end  if 

ask  "Enter  lesson  name" 
if  it  is  empty  then 
exit  mouseUp 
else 

put  it  into  tgt 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  sked_box 
if  tgt  =  item  1  of  line  j  of  card  field  sked_box  then 
delete  line  j  of  card  field  sked_box 
exit  mouseUp 
end  if 

if  j  =  the  number  of  lines  in  card  field  sked_box  then 
answer  "Lesson  not  found"  with  "Return" 
end  if 
end  repeat 
end  if 

end  mouseUp 

••  CARD  #5,  BUTTON  #3:  Change  Date  . . 

on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
end  if 

ask  "Enter  lesson  name” 
if  it  is  empty  then 
exit  mouseUp 
else 

put  it  into  tgt 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  sked_box 
if  tgt  =  item  1  of  line  j  of  card  field  sked_box  then 
put  j  into  linenum 
exit  r^ieat 
end  if 

if  j  =  the  number  of  lines  in  card  field  sked_box  then 
answer  "Lesson  not  found"  with  "Return” 
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exit  mouseUp 
end  if 
endrq>eat 

ask  "Enter  new  sked  date" 
if  it  is  empty  then 
exitmouseUp 
else 

lepeax  until  validDate(it)  is  true  and  -< 
goodDate(card  field  start^t)  is  true 
if  validDate(it)  is  false  then 
ask  it  &&  "Not  a  valid  date.  Enter  correct  date" 
end  if 

if  it  is  empty  then 

select  a^  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

if  goodDate(card  field  start,it)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
end  repeat 

put  it  into  item  2  of  line  linenum  of  card  field  sked_box 
end  if 
end  if 

end  mouseUp 

••  CARD  #5,  BUTTON  #4;  Add  Lesson 
on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
end  if 

put  empty  into  card  field  enter_box 
select  alter  last  char  of  card  field  enier_box 
end  mouseUp 

••  CARD  #5,  BUTTON  #5:  Save  Changes  ••••*•*•••••••••••*••••*••*••♦**•*** 

on  mouseUp 

if  visible  of  card  field  Usting  is  true  then 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
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exit  mouseUp 
end  if 
end  if 

put  card  field  card_id  into  card.id 

put  card  fidd  s]ced_box  into  card  field  sked  of  card  id  caid.id 
put  empty  into  card  field  skedname 
put  empty  into  card  field  sked.box 
put  empty  into  card  field  title 
put  empty  into  card  field  enter_box 
send  openCaid  to  card  modify 
endnrauseUp 

**  CARD  #5,  BUTTON  #6:  Cancel  Changes  ••••••••••••*••**••••••*•*••••• 

on  mouseUp 

if  visible  of  card  field  listing  is  true  dten 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
end  if 

pul  card  field  cardjd  into  cardjd 

put  card  field  sked  of  card  id  card_id  into  card  field  sked_box 
select  after  last  char  of  card  field  enier_box 
end  mouseUp 

••  CARD  #5.  BUTTON  #7:  Get  Sked  ••••••••••*••••••••••••••*••••*■•*••• 

on  mouseUp 

put  card  field  start  into  oldstart 

put  card  field  listing  of  card  skedfile  into  card  field  listing 

set  lockMessages  to  true 

show  card  field  listing 

hide  card  field  title 

set  lockScreen  to  true 

ask  "Enter  schedule  name" 

if  it  is  empty  then 

send  mouseUp  to  card  button  "return” 
exit  mouseUp 
else 

put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  if 

if  the  result  is  not  empty  then 
repeat  until  the  result  is  empty 
go  to  card  "modify" 

ask  "Schedule  not  found.  Enter  schedule  name" 
put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
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put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
endrq)eat 
end  if 

put  the  short  id  of  diis  card  into  card  field  card  Jd  of  card  modify 
put  card  fidd  sked  into  card  field  sked_box  of  card  modify 
put  card  field  title  into  card  field  title  of  card  modify 
put  card  field  start  into  card  field  start  of  card  modify 
go  to  card  "modify" 
set  lockScreen  to  false 
if  oldstatt  o  card  field  start  then 
send  mouseUp  to  card  button  draw 
end  if 

hide  card  field  listing 
show  card  field  title 

select  after  last  char  of  card  field  enter_box 
endmouseUp 


•*  CARD  #5,  BUTTON  #8:  DRAW  . . ***** 

on  mouseUp 

if  card  field  start  is  empty  then 
exit  mouseUp 
end  if 

set  cursor  to  4 

show  card  field  working 

set  lockScreen  to  true 

choose  pencil  tool 

click  at  50,1 10 

click  at  400,100 

choose  select  tool 

drag  from  0,80  to  160,290 

type  "x"  with  commandKey 

drag  from  360,80  to  5 1 3,200 

type  "x"  with  commandKey 

choose  text  tool 

set  textSize  to  9 

set  textFont  to  geneva 

set  textAlign  to  left 

set  textStyle  to  plain 

set  textHeight  to  9 

click  at  49,103 

typc"S" 

click  at  63,103 

type'M" 

click  at  79,103 

type"T" 

click  at  94,103 

type"W" 

click  at  109,103 

type"T" 

click  at  126,103 

typc"F" 
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click  at  140,103 
typc"S" 

put  card  field  start  into  temp 
convert  temp  to  long  date 
click  at  48,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  115  intolineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  -f  IS  *  locjineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  +13  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
end  fcpeat 

convert  temp  to  long  date 
click  at  48,204 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  216  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  +  15  •  loc.lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type  "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  +  13  into  lineloc 

end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
end  repeat 
click  at  387,103 
type-S- 
cUck  at  401,103 
type"M" 
click  at  417,103 
typc-r 
click  at  432,103 
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type  "W" 

click  at  447,103 

type-T" 

click  at  464,103 

typcT" 

click  at  478,103 

type’s" 

convert  temp  to  long  date 
click  at  386,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  IIS  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  369  +  15  •  loc,lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type  "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  +  1 3  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
end  repeat 
choose  browse  tool 
hide  card  field  working 
end  mouseUp 


••  CARD  #5,  BUTTON  #9;  enterjnfo  . . .•*••*.••»••••*•***.**•**•»•• 

on  mouseUp 

if  card  field  title  is  empty  then 

answer  "Schedule  must  have  a  title"  with  "Cancel"  or  "Title" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  buuon  "change  title" 

end  if 
end  if 

if  card  field  start  is  empty  then 

answer  "No  schedule  quarter  entered"  with  "Cancel"  or  "Enter" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "change  qir" 
send  mouseUp  to  card  button  "draw" 
end  if 
end  if 

if  line  1  of  card  field  enier_box  is  empty  then 
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ask  "No  lesson  name,  Enter  lesson  name" 
if  it  is  empty  then 

pul  empty  into  card  field  enter_box 
select  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

put  it  into  line  1  of  card  field  ento'.box 
Nidif 

put  line  1  of  card  field  enier_box  & ","  after  last  char-i 
of  tempname 

put  line  2  of  card  field  enter.box  into  it 
rqteat  until  valid£>ate(it)  is  true  and  -> 
goodDatefcaid  field  s.  .rUt)  is  true 
if  validDate(it)  is  false  then 
ask  it  &&  "Not  a  valid  date.  Enter  correct  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
eitd  if 

if  goodE>ate(card  field  start,it)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
end  repeat 

if  the  number  of  lines  in  card  field  sked_box  >=15  then 
answer  "Schedule  is  full  (15  Items  max)"  with  "Cancel"  or-i 
"Save  sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "save  sked" 
exit  mouseUp 
end  if 
end  if 

put  it  after  last  char  of  tempname 

put  tempname  &  ",s"  &  return  after  last  char  of  card  field  sked_box 
put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter_box 
end  mouseUp 

**  CARD  #6*  draw  **’>'***^********»*»»*******»********* 
onopenCard 

put  card  field  listing  of  card  skedfile  into  card  field  listing 
^ow  card  field  header 
show  card  field  list_hcad 
show  card  field  listing 
endopenCard 
on  idle 
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hide  card  field  shield 
end  idle 

*•  CARD  #6.  BUTTON  #1:  . . . . . 

on  mouseUp 

send  mouseUp  to  card  button  erase 
put  empty  into  card  field  sked_box 
put  empty  into  card  field  start 
put  empty  into  card  field  title 
put  empty  into  card  field  listing 
go  to  c«d  training 
endmsuseUp 

*•  CARD  #6.  BUTTON  #2:  Print  •••**•**••••••*••*•••••*••*••••*•**• 

on  mouseUp 
set  cursor  to  4 
diow  card  field  shield 
open  printing 
print  this  card 
close  printing 
end  mouseUp 

*•  CARD  #6,  BUTTON  #3:  Erase  ••♦•***••••*•••**•••••••***••••**••* 

on  mouseUp 
set  cursor  to  4 
set  lockSaeen  to  true 
choose  pencil  tool 
drag  from  0,0  to  0,1 
choose  select  tool 
drag  from  0,0  to  512342 
type  "x"  with  commandKey 
diow  card  field  header 
choose  browse  tool 
end  mouseUp 


•*  CARD  #6,  BUTTON  #4:  Draw  *•••**••♦***••••••••**••**••••••**** 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
if  card  field  start  is  empty  then 

answer  "Get  a  schedule  to  draw"  with  "Cancel"  or  "Get  Sked" 
if  it  *  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
end  if 
end  if 

if  card  field  start  is  empty  then 
exit  mouseUp 
end  if 

hide  card  field  header 
hide  card  field  listing 
hide  card  field  list_head 
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choose  bucket  tool 

set  pattern  to  1 

cUdt  at  100,100 

choose  text  tool 

set  the  textFont  to  courier 

set  the  textSize  to  10 

set  the  textStyle  to  plain 

set  die  textHeight  to  9 

SA  texlMign  to  left 

put  card  field  start  into  stansecs 

convert  staitsecs  to  secondi. 

rqieat  with  j  =  1  to  the  number  of  lines  in  card  field  sked.box 
cUckat30.65  +  j*  15 

type  char  1  to  11  of  item  1  of  line  j  of  card  fkld  sked.box 
put  item  2  of  line  j  of  card  field  sked.box  into  secs 
convert  secs  to  seconds 
put  (secs  -  startsecs)/86400  into  temp 
if  secs  =  startsecs  then 
cUckat99,65  +  j*  15 
else 

convert  secs  to  dateltems 
if  item  7  of  secs  =  2  then 

click  at  4  •  temp  +  99,65  +  j  *  15 
else 

click  at  4  •  temp  +  98,65  +  j  •  15 
end  if 
end  if 

type  item  3  of  line  j  of  card  field  sked_box 
endi^reat 

set  the  textFont  to  geneva 
set  the  textSize  to  9 
set  the  textStyle  to  plain 
set  the  textHeight  to  9 
set  textAlign  to  left 
choose  line  tool 
drag  from  98,61  to  466,61 
repeat  with  j  =  1  to  16 
put  53  +  15  *  j  into  horiz 
drag  from  466,horiz  to  28,horiz 
endr^)eat 

drag  from  27,68  to  27,293 
drag  from  98,68  to  98,293 
put  94  into  loc 
repeat  with  j  =  1  to  93 
drag  from  loc  +  4  •  j,62  to  loc  +  4  *  j,67 
endrq)eat 

drag  from  466,68  to  466,293 
choose  browse  tool 
put  card  field  start  into  begin 
convert  begin  to  dateitems 
get  last  char  of  begin 
put  it  into  temp 
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if  temp  >  2  then 
put  temp  -  3  into  temp 
else 

if  temp  =  2  then 
put  6  into  temp 
else 

put  S  into  temp 
end  if 
end  if 

put  122  -  4  *  temp  into  location 
put  begin  into  tempdate 
put  last  char  of  begin  into  temp 
put  (9  -  temp)  mod  7  into  temp 
convert  tempdate  to  seconds 
put  tempdate  +  86400  *  temp  into  tempdate 
set  the  textFont  to  geneva 
set  the  textSize  to  9 
set  the  textStyle  to  plain 
set  the  textHeight  to  9 
set  texiAlign  to  left 
repeat  until  location  >  46S 
choose  line  tool 

drag  from  location, S3  to  location,292 

choose  text  tool 

convert  tempdate  to  abbr  date 

put  the  length  of  word  3  of  tempdate  into  len 

put  char  1  to  len  •  1  of  word  3  of  tempdate  into  day 

click  at  location  +  2,58 

type  day 

if  day  <  8  then 

put  char  2  of  item  2  of  tempdate  into  mon 

put  numToChar(charToNum(char  3  of  item  2  of  tempdate)  -  32)  after-, 
last  char  of  mon 

put  numToChar(charToNum(char  4  of  item  2  of  tempdate)  -  32)  after-, 
last  char  of  mon 
type  mon 
end  if 

convert  tempdate  to  seconds 
put  604800  +  tempdate  into  tempdate 
put  location  +  28  into  location 
end  repeat 
click  at  28,66 
type  "LESSON  NAME" 
click  at  256,25 
set  texLAlign  to  center 
set  textHeight  to  12 
set  textSize  to  12 

type  "TRAINING  SCHEDULE  &&  card  field  title 

click  at  256,40 

put  card  field  start  into  temp 

convert  temp  to  long  date 

type  word  1  of  item  2  of  temp  &&  " 


121 


convert  temp  to  seconds 
put  temp  +  6048000  into  temp 
convert  temp  to  long  date 
type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
choose  browse  tod 
endmouseUp 

•*  CARD  #6,  BUTTON  #5;  Get  Sked  •*••••*•••*••*•• 
on  mouseUp 
set  curscH' to  4 
show  card  field  list.head 
show  card  field  listing 
set  lockScreen  to  true 
set  lockMessages  to  true 

put  card  field  listing  of  card  skedfile  into  card  field  listing 
if  card  field  listing  is  empty  then 
ansv.-er  "No  schedules  on  file"  with  "Return" 
exit  mouseUp 
end  if 

ask  "Enter  schedule  name" 
if  it  is  empty  then 
exit  mouseUp 
else 

put  quote  &  it  &  quote  into  tempname 
put  "card”  &&  quote  <&  it  &  quote  into  tempname 
go  to  tempname 
end  if 

if  the  result  is  not  empty  then 
repeat  until  the  result  is  empty 
go  to  card  "draw" 

ask  "Schedule  not  found,  Enter  schedule  name" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

pul  quote  &  it  &  quote  into  tempname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
endrq)eat 
end  if 

put  card  field  sked  into  card  field  sked.box  of  card  draw 
put  card  field  title  into  card  field  title  of  card  draw 
put  card  Geld  stan  into  card  field  start  of  card  draw 
go  to  card  "draw" 
hide  card  field  list.head 
hide  card  field  listing 
end  mouseUp 

*•  CARD  #11,  BUTTON  #1:  RETURN  *•*•••••••••*•« 

on  mouseUp 
go  to  card  training 
end  mouseUp 
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*•  CARD  #11,  BUTTON  #2;  diaft  . . . 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
set  lockMessages  to  true 
put  empty  into  card  field  tempmsg 
global  ol^um.olddtg 
put  card  field  semo  into  oldnum 
put  card  field  lastdtg  into  olddtg 
put  card  field  semo  -t- 1  into  tempnum 
if  tempnum  =  1000  then 
put  "001"  into  tempnum 
end  if 

if  tempnum  <  10  then 
put  "00"  &  tempnum  into  tempnum 
end  if 

if  tempnum  <  100  and  tempnum  >  9  then 
put  "0"  &  tempnum  into  tempnum 
end  if 

put  empty  into  tempmsgline 
go  to  card  draw 
repeat  with  k  =  1  to  4 
go  to  next  card 
put  field  2  int(  field  3 

repeat  with  j  =  1  to  the  number  of  lines  in  field  1 
if  item  9  of  line  j  of  field  1  is  "PDG"  then 
put  tempnum  into  item  9  of  line  j  of  field  1 
put  item  1  of  line  j  of  field  1  &  "/” 
msgDate(item  5  of  line  j  of  field  1)  after  last  char  of  -> 
tempmsgline 

if  item  8  of  line  j  of  field  1  =  "OBS  "  then 
put  ''/or  after  last  char  of  tempmsgline 
else 

if  item  8  of  line  j  of  field  1  =  "S-OBS"  then 
pul  "fir  after  last  char  of  tempmsgline 
else 

put  74/"  after  last  char  of  tempmsgline 
end  if 
end  if 

put  item  7  of  line  j  of  field  1  &  "/A/" 

item  2  of  line  j  of  field  1  &  return  afie/  last  char  of  -■ 

tempmsgline 

find  whole  item  1  of  line  j  of  field  1  in  field  2 
put  word  2  of  the  foundLine  into  newlinenum 
put  item  1  of  line  j  of  field  1  &  space  into  templine 
put  item  2  of  line  j  of  field  1  into  temp 
repeat  untfi  the  length  of  temp  =  13 
put  space  after  last  char  of  temp 
end  repeat 

put  temp  after  last  char  of  templine 
put  item  3  of  line  j  of  field  1  into  temp 
repeat  until  the  length  of  temp  =  20 
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put  space  after  last  char  of  temp 
end  repeat 

put  temp  after  last  char  of  templine 
put  "M-"  &  item  4  of  line  j  of  field  1  &  space  &  space-i 
after  last  char  of  templine 
if  item  S  of  line  j  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  & 
space  &.  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildate(item  5  of  line  j  of  field  1)  &  qnce  -i 
&  space  after  last  char  of  templine 
end  if 

if  item  6  of  line  j  of  field  I  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  & 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildate(item  6  of  line  j  of  field  1)  &  space  -> 

&  space  after  last  char  of  templine 
end  if 

put  item  7  of  line  j  of  field  1  &  space 
item  8  of  line  j  of  field  1  &  space  &  -i 
item  9  of  line  j  of  field  1  after  last  char  of  templine 
put  templine  into  line  newlinenum  of  field  2 
end  if 
endrqpeat 
endrqieat 
go  to  card  trarep 
if  tempmsgline  is  empty  then 
answer  "No  accomplishments  to  report"  with  "return" 
put  oldnum  into  card  field  semo 
put  olddtg  into  card  field  lastdtg 
exit  mouseUp 
end  if 

put  card  field  header  into  card  field  tempmsg 
put  tempnum  after  last  char  of  card  field  tempmsg 
put  the  date  into  today 
convert  today  to  datellems 
if  item  3  of  today  <  10  then 
put  "0"  &  item  3  of  today  into  dtg 
else 

put  item  3  of  today  into  dtg 
end  if 

put  the  long  time  into  now 
if  the  length  of  now  =  7  then 

pul  ”0"  A  char  1  of  now  &  char  3  to  4  of  now  after  last  char  of  dtg 
else 

put  char  1  to  2  of  now  &  char  4  to  5  of  now  after  last  char  of  dtg 
end  if 

put  "Z  ”  after  last  char  of  dtg 

convert  today  to  abbr  date 

put  char  2  of  item  2  of  today  after  last  char  of  dig 

pul  numToChar(charToNum(char  3  of  item  2  of  today)  -  32)  after 
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last  char  of  dtg 

put  numToChar(charToNum(char  4  of  item  2  of  today)  -  32)  after  -i 
last  char  of  dtg 

put  space  &  char  4  to  5  of  item  3  of  today  after  last  char  of  dtg 
put "  AS  OF "  &  dtg  &  return  after  last  char  of  card  field  tempmsg 
put  card  field  linel  &  return  after  last  char  of  card  field  tempmsg 
put  tempmsgline  after  last  char  of  card  field  tempmsg 
answer  "Any  Air  Controller  data  to  report  ?"  with  "Yes"  or  "No" 
if  it  is  "yes"  then 
repeat  until  it  is  "no" 

answer  "Choose  qualification  type"  with  "AICS"  or  "AIC"  or  "ASAC" 
if  it  is  "aics"  dien 
put  "AICS"  into  qualline 
else 

if  it  is  "aic"  then 
put  "AIC"  into  qualline 
else 

put  "ASAC"  into  qualline 
end  if 
end  if 

ask  "Enter  Name  (Last,  FI.MI.) 
if  it  is  empty  then 
exit  repeat 
end  if 

put  space  &  it  after  last  char  of  qualline 
ask  "Enter  lank/rate" 
if  it  is  empty  then 
exit  repeat 
end  if 

put "/"  &  it  after  last  char  of  qualline 
ask  "Enter  PRD" 
if  it  is  empty  then 
exit  repeat 
end  if 

put "/"  &  it  after  last  char  of  qualline 
ask  "Enter  total  hours/intercepis  since  desig" 
if  it  is  empty  then 
exit  repeat 
end  if 

put "/"  &  it  after  last  char  of  qualline 
put  qualline  &  return  after  last  char  of  card  field  tempmsg 
answer  "Any  more  Air  Controller  data  to  report  ?"  with  "No"  or 
"Yes" 
end  repeat 
end  if 

answer  "Any  Gram  Analysis  data  to  report  ?”  with  "Yes"  or  "No" 
if  it  is  "yes"  then 
repeat  until  it  is  "no" 
ask  "Enter  Name  (Last,  FI.MI.)" 
if  it  is  empty  then 
exit  repeat 
end  if 
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put  it  into  qualline 
ask  "Enter  rank/rate" 
if  it  is  empty  then 
exit  repeat 
end  if 

put  T  &  it  after  last  char  of  qualline 
ask  "Enter  PRD" 
if  it  is  empty  then 
exitrqjeat 
end  if 

put "/"  &  it  after  last  char  of  qualline 
ask  "Enter  total  hours  in  month" 
if  it  is  empty  then 
exit  repeat 
end  if 

put "/"  &  it  after  last  char  of  qualline 
put  qualline  &  return  after  last  char  of  card  Held  tempmsg 
answer  "Any  more  Gram  Analysis  riata  to  report  ?"  with  "No"  or 
"Yes- 
end  repeal 
end  if 

put  "MOB"  into  tempmrating 

put  char  5  to  9  of  card  field  mob_mrating  of  card  mob_n  into  pet 

put  100  •  pet  into  pet 

set  numberFormat  to  "00" 

put "  "  &  pet  &&  "PCr  &&  "("  &  -M"  &  char  3 

of  card  field  mob_mrating  of  card  mob_n  &  ")"  &  return  after  -> 

last  char  of  tempmrating 

put  tempmrating  after  last  char  of  card  field  tempmsg 

put  the  date  into  today 

convert  today  to  short  date 

put  the  number  of  chars  in  today  into  length 

put  char  length  - 1  to  length  of  today  into  year 

put  year  +  6  into  year 

put  year  into  char  length  - 1  to  length  of  today 
put  "DECL  "  &  mildate(today)  &  return  &  "BT"  &  return  after 
last  char  of  card  field  tempmsg 
put  lempnum  into  card  field  semo 
put  dtg  into  card  field  lastdtg 
endmouseUp 

•*  CARD  #11,  BUTTON  #3:  Cancel  •***•••••••••••••*•••*••• 

on  ntouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
set  lockMessages  to  true 
global  oIdnum.olddtg 
put  card  field  semo  into  tempsemo 
put  oldnum  into  card  field  semo 
put  olddtg  into  card  field  lastdtg 
put  empty  into  card  field  tempmsg 
go  to  card  draw 
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repeat  with  k  =  1  to  4 
go  to  next  card 
put  field  3  into  field  2 

repeat  with  j  a  1  to  the  number  of  lines  in  field  1 
if  item  9  ttf  line  j  of  field  1  =  tempsemo  then 
put  TDG"  into  item  9  of  line  j  of  field  1 
end  if 
endrqieat 
end  repeat 
go  to  card  trarep 
end  moiiseUp 

••  CARD  #11.  BUTTON  #4:  Print 
on  mouseUp 
set  textFont  to  courier 
set  textSize  to  12 
set  textStyle  to  plain 
PrintField(card  field  tempmsg) 
reset  paint 
end  mouseUp 

**  CARD  #12*  view  d^t3  ********^**‘***********^***‘^**‘******* 
onopenCard 

pul  empty  into  field  viewer 
put  empty  into  card  field  marea 
put  empty  into  card  field  mradng 
put  empty  into  card  field  as.of 
put  empty  into  card  field  update 
endopenCard 

••  CARD  #12,  FIELD  #2:  marea 
on  uppercase 

if  card  field  marea  is  not  empty  then 
repeat  with  j »  1  to  the  length  of  card  field  marea 
get  char  j  of  card  field  marea 
if  charToNum(it)  >  96  and  charToNum(ii)  <  123  then 
put  numToChar(charToNum(ii)  -  32)  into  char  j  of  card  field  marea 
end  if 
end  repeat 
end  if 

end  uppercase 


••  CARD  #12,  BUTTON  #1 :  Get  Data  ••*•**•••••*•••*•••••**••***•*•*•*♦* 

on  mouseUp 
hide  field  viewer 
hide  card  field  header 
hide  card  field  title 
hide  card  field  tranum 
show  card  field  missionareas 
ask  "Enter  mission  area" 
if  it  is  empty  then 
hide  card  field  missionareas 
exit  mouseUp 
else 
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put  it  into  area 

if  it  is  not  in  card  field  missionareas  or  the  length  of  it  <  3  -< 

CT  it  is  in  "mission  areas"  then 
iqieat 

answer  "Invalid  mission  area.  Try  again" 
ask  "Enter  mission  area" 
if  it  is  empty  then 
hide  card  field  missionareas 
exitmouseUp 
else 

put  it  into  area 

if  it  is  not  in  card  field  missionareas  or  -< 
the  length  of  it  <  3  or  it  is  in  "mission  areas"  then 
nextrqieat 
else 

exit  repeat 
end  if 
end  if 
end  repeat 
end  if 
end  if 

set  cursor  to  4 
set  lockScreen  to  true 
if  area  is  "mob-e"  then 
put  "mob_e"  into  card  held  marea 
end  if 

if  area  is  "mob-d"  then 
put  "mob_d"  into  card  field  marea 
end  if 

if  area  is  "mob-s”  then 
put  "mob_s"  into  card  field  marea 
end  if 

if  area  is  "mob-n"  then 
put  "mob_n"  into  card  field  marea 
end  if 

if  area  is  "mob"  then 
put  "mob"  into  card  field  marea 
end  if 

if  area  o  "mob"  then 
put  card  field  marea  into  tempname 
put  field  tempname  of  card  tempname  into  field  viewer 
put  card  field  mrating  of  card  tempname  into  card  field  mrating 
put  card  field  as_of  of  card  tempname  into  card  field  as_of 
put  card  field  update  of  card  tempname  into  card  field  update 
else 

if  area  =  "mob"  then 
put  area  into  card  field  marea 
put  field  mob_e  of  card  mob_e  into  field  viewer 
put  field  mob_d  of  card  mob.d  after  last  char  of  field  viewer 
put  field  mob_s  of  card  mob_s  after  last  char  of  field  viewer 
put  field  mob_n  of  card  mob_n  afio-  last  char  of  field  viewer 
put  card  field  mob_mrating  of  card  mob_n  into  card  field  mrating 
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put  card  field  mob_as_of  of  card  mob_n  into  card  field  as_of 
put  card  field  update  of  card  inob_n  into  card  field  update 
else 

put  card  field  marea  into  tempname 
put  field  tempname  of  card  tempname  into  field  viewer 
put  card  field  miating  of  card  tempname  into  card  field  mrating 
piA  card  field  as.of  of  card  tempname  into  card  field  as.of 
put  card  field  update  of  card  tempname  into  card  field  update 
end  if 
end  if 

send  uppercase  to  card  field  marea 
hide  caid  field  missionaieas 
show  field  viewer 
show  card  field  header 
cUck  at  504,103 
set  lockscreen  to  false 
endmouseUp 

••  CARD  #12,  BUTTON  #2;  RETURN  »•••••*•••••••••*•*••••••***•**•**•* 

on  mouseUp 
go  to  card  training 
end  mouseUp 

•*  CARD  #12,  BUTTON  #3:  M-Rating  ••••••••••**•••••••**»****•*••*•**•♦ 

on  mouseUp 

if  card  field  marea  is  empty  then 
answer  "No  data  present"  with  "return" 
exit  mouseUp 
end  if 

set  numberFormat  to  "0.###" 

set  cursor  to  4 

set  lockSaeen  to  true 

set  lockMessages  to  true 

put  0  into  m  1 

put  0  into  m2 

put  0  into  m3 

put  0  into  m4 

put  card  field  marea  into  pma 
if  pma  <>  "mob"  then 
go  to  card  pma 

repeat  with  j  =  1  to  the  number  of  lines  in  field  1 
if  item  4  of  line  j  of  field  1  =  1  then 
putml  -f  1  into  ml 
end  if 

if  item  4  of  line  j  of  field  1  =  2  then 
put  m2  4- 1  into  m2 
end  if 

if  item  4  of  line  j  of  field  1  =  3  then 
put  m3  +  1  into  m3 
end  if 

if  item  4  of  line  j  of  field  1  =  4  then 
put  m4  +  1  into  m4 
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end  repeat 
else 

go  to  card  draw 
repeat  with  cardnum  =  1  to  4 
go  to  next  card 

repeat  with  j  =  1  to  the  numbCT  of  lines  in  field  1 
if  item  4  of  line  j  of  field  1  =  1  then 
putml  -»■  1  into  ml 
end  if 

if  item  4  of  line  j  of  field  1  =  2  then 
put  m2  +  1  into  m2 
end  if 

if  item  4  of  line  j  of  field  1  =  3  then 
put  m3  +  1  into  m3 
end  if 

if  item  4  of  line  j  of  field  1  =  4  then 
put  m4  +  1  into  m4 
end  if 
end  repeat 
end  repeat 
end  if 

go  to  card  view_data 

put  (4  •  ml  +  3  *  m2  +  2  •  m3)/(4  •  (ml  +  m2  +  m3  +  m4))  into-, 
readfactor 

if  readfactor  >  0.849  then 
put  "M-r  &&  readfactor  into  card  field  mrating 
else 

if  readfactor  >  0.699  then 
put  "M-2"  &&  readfactor  into  card  field  mrating 
else 

if  readfactor  >  0.549  then 
put  "M-3"  &&  readfactor  into  card  field  mrating 
else 

put  "M-4''  &&  readfactor  into  card  field  mrating 
end  if 
end  if 
end  if 

get  the  short  date 

put  mildate(it)  into  card  field  as_of 
if  card  field  marea  o  "mob”  then 
put  card  field  mrating  into  card  field  mrating  of  card  pma 
put  card  field  as_of  into  card  field  as_of  of  card  pma 
else 

put  card  field  mrating  into  card  field  mob_mrating  of  card  mob_n 
put  card  field  as_of  into  card  field  mob_as_of  of  card  mob_n 
end  if 

endmouseUp 

CARD  #12,  BUTTON  #4:  enter  data 
on  mouseUp 
set  lockScreen  to  true 


set  lockMessages  to  true 
if  card  field  marea  is  empty  then 
answer  "No  data  present"  with  "Cancel"  or  "Get  Data" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

set  lockScreen  to  false 
said  mouseUp  to  card  button  "get  data" 
if  card  field  marea  is  empty  then 
exit  mouseUp 
end  if 

set  lockScreen  to  true 
end  if 
end  if 

put  card  field  marea  into  cardname 
ask  "Enter  exercise  id" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  into  idnum 
if  cardname  is  "mob"  then 
if  char  3  of  idnum  =  "0"  then 
put  "mob_e"  into  cardname 
else 

if  char  3  of  idnum  =  "2"  then 
put  "mob_d"  into  cardname 
else 

if  char  3  of  idnum  =  "3"  then 
put  "mob_s"  into  cardname 
else 

put  "mob_n"  into  cardname 
end  if 
end  if 
end  if 
end  if 

go  to  card  cardname 
find  whole  idnum  in  field  1 
repeat  until  the  result  is  empty 
find  whole  idnum  in  field  1 

if  the  result  <>  empty  or  the  length  of  idnum  <>  6  then 
answer  "Invalid  number,  try  again"  with  "return" 
ask  "EntCT  exercise  id" 
if  it  is  empty  then 
go  to  card  view_data 
exit  mouseUp 
else 

put  it  into  idnum 
end  if 
end  if 
end  repeat 

put  word  2  of  the  foundLine  into  linenum 
ask  "Enter  completion  date  (MM/DD/YY)" 
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if  it  is  empty  then 
go  to  card  view_data 
exit  mousellp 
end  if 

put  it  into  compdate 
if  validDate(compdate)  is  false  then 
rq)eat  until  validDate(compdate)  is  true 
ask  "Invalid  date,  Enter  completion  date  (MM/DDA^" 
if  it  is  empty  then 
go  to  card  view_data 
exit  mousellp 
end  if 

put  it  into  compdate 
end  repeat 
end  if 

ask  "Enter  score  (Must  be  4  digits  or  'NONE')"  with  "NONE” 
if  it  is  empty  then 
go  to  card  view_data 
exit  mousellp 
end  if 

put  it  into  scwe 

repeal  with  chamum  =  1  to  the  length  of  score 
if  char  chamum  of  score  is  not  in  "NOEO 123456789"  then 
put  true  into  invalid 
exit  repeat 
else 

put  false  into  invalid 
end  if 
endrq)eat 

if  the  length  of  score  o  4  or  invalid  is  true  then 
repeat  until  the  length  of  score  »  4  and  invalid  is  false 
ask  "Score  must  be  4  digits  (No  decimal  point)" 
if  it  is  empty  then 
go  to  card  view_data 
exit  mousellp 
end  if 

put  it  into  score 

repeat  with  chamum  =  1  to  the  length  of  score 
if  char  chamum  of  score  is  not  in  "NOE0123456789"  then 
put  true  into  invalid 
exit  repeat 
else 

put  false  into  invalid 
end  if 
end  repeat 
end  repeat 
end  if 

answer  "What  evaluation  method  ?”  with  "Equivalent"  or  "Observed”  or 
"Self  Observed" 
if  it  is  "equivalent"  then 
put  "EQUIV"  into  eval 
else 
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if  it  is  "Observed"  then 
put  "OBS  "  into  eval 
else 

put  "S-OBS”  into  eval 
end  if 
end  if 

put  compdate  into  item  5  of  line  linenum  of  field  1 
if  char  4  of  idnum  =  S  then 

put  expDatefcompdatejtem  10  of  line  linenum  of  field  1)  into-n 
item  6  of  line  linenum  of  field  1 
else 

put  expDate(compdate^l)  into  item  6  of  line  linenum  of  field  1 
end  if 

put  "1"  into  item  4  of  line  linenum  of  field  1 
put  score  into  item  7  of  line  linenum  of  field  1 
put  eval  into  item  8  of  line  linenum  of  field  1 
put  "PDG"  into  item  9  of  line  linenum  of  field  1 
find  idnum  in  field  2 

put  word  2  of  the  foundLine  into  newlinenum 
put  item  1  of  line  linenum  of  field  1  &  space  into  templine 
put  item  2  of  line  linenum  of  field  1  into  temp 
repeat  until  the  length  of  temp  =  13 
put  space  after  last  char  of  temp 
endrqjeat 

put  temp  after  last  char  of  templine 
put  item  3  of  line  linenum  of  field  1  into  temp 
repeat  until  the  length  of  temp  =  20 
put  space  after  last  char  of  temp 
end  repeat 

put  temp  after  last  char  of  templine 

put  "M-"  &  item  4  of  line  linenum  of  field  1  &  space  &  space-- 
after  last  char  of  templine 
if  item  5  of  line  linenum  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  &  -- 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildatefitem  5  of  line  linenum  of  field  1)  &  space 
&  space  after  last  char  of  templine 
end  if 

if  item  6  of  line  linenum  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  &  -i 
space  &  space  &  space  &  space  after  last  char  of  templine 
elM 

put  mildatefitem  6  of  line  linenum  of  field  1)  &  space  -- 
&  space  after  last  char  of  templine 
end  if 

put  item  7  of  line  linenum  of  field  1  &  space 
item  8  of  line  linenum  of  field  1  &  space  &  -- 
item  9  of  line  linenum  of  field  1  after  last  char  of  templine 
put  templine  into  line  newlinenum  of  field  2 
if  card  field  marea  of  card  view_data  o  "mob"  then 
put  field  2  into  field  viewer  of  card  view_data 
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go  to  card  view.data 
else 

go  to  card  view_data 
find  whtde  idnum  in  field  viewer 
put  word  2  of  the  foundLine  into  here 
put  templine  into  line  here  of  field  viewer 
click  at  100,100 
end  if 

endmouseUp 

•*  CARD  #12,  BUTTON  #5:  Update 
on  mouseUp 

if  card  field  marea  is  empty  then 
answer  "No  data  present"  with  "Return" 
exit  mouseUp 
end  if 

set  cursor  to  4 
set  lockScreen  to  true 
set  lockMessages  to  true 
put  the  seconds  into  today 
if  card  field  marea  o  "mob"  then 
put  card  field  marea  into  cardname 
go  to  card  cardname 

repeat  with  j  =  1  to  the  number  of  lines  in  field  1 
if  item  6  of  line  j  of  field  1  is  empty  then 
next  repeat 
else 

put  item  6  of  line  j  of  field  1  into  baddaie 
convert  baddate  to  seconds 
if  baddaie  >  today  then 
next  repeat 
else 

if  char  4  of  item  1  of  line  j  of  field  1  o  "5"  then 
put  empty  into  item  6  of  line  j  of  field  I 
put  "4"  into  item  4  of  line  j  of  field  1 
find  item  1  of  line  j  of  field  1  in  field  2 
put  word  2  of  the  foundLine  into  linenum 
put  item  1  of  line  j  of  field  1  &  space  into  tempiine 
put  item  2  of  line  j  of  field  1  into  temp 
repeat  until  the  length  of  temp  =13 
put  space  after  last  char  of  temp 
end  repeat 

put  temp  after  last  char  of  templine 
put  item  3  of  line  j  of  field  1  into  temp 
repeat  until  the  length  of  temp  =  20 
put  q»ce  after  last  char  of  temp 
endrq)eat 

put  temp  after  last  char  of  templine 
put  "M-"  &  item  4  of  line  j  of  field  1  &  space  &  space-i 
after  last  char  of  templine 
if  item  5  of  line  j  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  & 
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space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildatefitem  5  of  line  j  of  field  1)  &  space  -> 

&  space  after  last  char  of  templine 
end  if 

if  item  6  of  line  j  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  &  -i 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildatefitem  6  of  line  j  of  field  1)  &  space 
&  qiace  after  last  char  of  templine 
end  if 

put  item  7  of  line  j  of  field  1  &  space  &-> 
item  8  of  line  j  of  field  1  &  qiace  &  -> 
item  9  of  line  j  of  field  1  after  last  char  of  templine 
put  templine  into  line  linenum  of  field  2 
else 

put  expDate(item  5  of  line  j  of  field  1,-. 
item  12  of  line  j  of  field  1)  into  temp3 
convert  temp3  to  seconds 
if  temp3  <  today  then 
put  empty  into  item  6  of  line  j  of  field  1 
put  "4"  into  item  4  of  line  j  of  field  1 
else 

put  expDate(item  5  of  line  j  of  field  1,-. 
item  1 1  of  line  j  of  field  1)  into  temp2 
convert  temp2  to  seconds 
if  temp2  <  today  then 
convert  temp3  to  short  date 
put  temp3  into  item  6  of  line  j  of  field  1 
put  "3"  into  item  4  of  line  j  of  field  1 
else 

put  expDate(item  5  of  line  j  of  field  1 
item  10  of  line  j  of  field  1)  into  temp] 
convert  tempi  to  seconds 
if  tempi  <  today  then 
convert  temp2  to  short  date 
put  temp2  into  item  6  of  line  j  of  field  1 
put  ”2”  into  item  4  of  line  j  of  field  1 
end  if 
end  if 
end  if 
end  if 

find  item  1  of  line  j  of  field  1  in  field  2 
put  word  2  of  the  foundLine  into  linenum 
put  item  1  of  line  j  of  field  1  &  space  into  templine 
put  item  2  of  line  j  of  field  1  into  temp 
repeal  until  the  length  of  temp  =13 
put  space  after  last  char  of  temp 
end  repeat 

put  temp  after  last  char  of  templine 
put  item  3  of  line  j  of  field  1  into  temp 
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rqpeat  until  the  length  of  temp  =  20 
put  space  after  last  char  of  temp 
endrq)eat 

put  temp  after  last  char  of  templine 
put  ”M-*  &  item  4  of  line  j  of  field  1  &  ^ce  &  space-> 
after  last  char  of  templine 
if  item  S  of  line  j  of  field  1  is  empty  then 
put  q)ace  &  space  &  space  &  space  &  space  A  space  &  space  & 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildate(item  S  of  line  j  of  field  1)  &  qiace  -■ 

&  space  after  last  char  of  templine 
end  if 

if  item  6  of  line  j  of  field  1  is  empty  then 
put  space  &  space  &  q>ace  &  space  &  space  &  ^>ace  &  space  A 
space  A  space  A  space  A  space  after  last  char  of  templine 
else 

put  mildate(item  6  of  line  j  of  field  1)  &  space  -> 

&  space  after  last  char  of  templine 
end  if 

pul  item  7  of  line  j  of  field  1  &  space  &-> 
item  8  of  line  j  of  field  1  &  space  A 
item  9  of  line  j  of  field  1  after  last  char  of  templine 
put  templine  into  line  linenum  of  field  2 
end  if 
end  if 
end  repeal 

put  empty  into  field  viewer  of  card  view_data 
put  field  2  of  this  card  into  field  viewer  of  card  view.data 
go  to  card  view_data 
convert  today  to  short  date 
put  mildateftoday)  into  card  field  update 
put  card  field  update  into  card  field  update  of  card  cardname 
else 

go  to  card  draw 
repeat  with  cardnum  =  1  to  4 
go  to  next  card 

npeai  with  j  =  1  to  the  number  of  lines  in  field  1 
if  item  6  of  line  j  of  field  1  is  empty  then 
next  repeat 
else 

put  item  6  of  line  j  of  field  1  into  baddate 
convert  baddate  to  seconds 
if  haddate  >  today  then 
next  rq>eat 
else 

if  char  4  of  item  1  of  line  j  of  field  1  o  ”5"  then 
put  empty  into  item  6  of  line  j  of  field  1 
put  "4"  into  item  4  of  line  j  of  field  1 
find  item  1  of  line  j  of  field  1  in  field  2 
put  word  2  of  the  foundLine  into  linenum 
put  item  1  of  line  j  of  field  1  A  space  into  lempline 
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put  item  2  of  line  j  of  field  1  into  temp 
repeat  until  the  length  of  temp  ==13 
put  qiace  after  last  char  of  temp 
endrqieat 

put  temp  after  last  char  of  lempline 
put  item  3  of  line  j  of  field  1  into  temp 
repeat  until  the  length  of  temp  =  20 
put  space  after  last  char  of  temp 
tnd  repeal 

put  temp  after  last  char  of  templine 
put  "M-"  &  item  4  of  line  j  of  field  1  &  space  &  space-i 
after  last  char  of  templine 
if  item  5  of  line  j  of  Held  1  is  empty  then 
put  space  &  space  &  space  &  space  &  ^lace  &  space  &  space  &  -> 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  inildate(item  5  of  line  j  of  field  1)  &  space 
&  space  after  last  char  of  templine 
end  if 

if  item  6  of  line  j  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  & 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildate(item  6  of  line  j  of  field  1)  &  space  -i 
&  space  after  last  char  of  templine 
end  if 

put  item  7  of  line  j  of  field  1  &  space 
item  8  of  line  j  of  field  1  &  space  & 
item  9  of  line  j  of  field  1  after  last  char  of  lempline 
put  templine  &  return  into  linenum 
else 

put  expDate(iiem  5  of  line  j  of  field  1.— ■ 
item  12  of  line  j  of  field  1)  into  iemp3 
convert  iemp3  to  seconds 
if  temp3  <  today  then 
put  empty  into  item  6  of  line  j  of  field  1 
put  ”4"  into  item  4  of  line  j  of  field  1 
else 

put  expDate(iiem  5  of  line  j  of  field  1 
item  1 1  of  line  j  of  field  1)  into  iemp2 
convert  temp2  to  seconds 
if  temp2  <  today  then 
convert  temp3  to  short  date 
put  temp3  into  item  6  of  line  j  of  field  1 
put  "3"  into  item  4  of  line  j  of  field  1 
else 

put  expDate(item  5  of  line  j  of  field  1 
item  10  of  line  j  of  field  1)  into  tempi 
convert  tempi  to  seconds 
if  tempi  <  today  then 
convert  temp2  to  short  date 
put  temp2  into  item  6  of  line  j  of  field  1 
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put  "I"  into  item  4  of  line  j  of  field  1 
end  if 
end  if 
end  if 
end  if 

find  item  1  of  line  j  of  field  1  in  field  2 
put  word  2  of  the  foundLine  into  linenum 
put  item  1  of  line  j  of  field  1  &  space  into  templine 
put  item  2  of  line  j  of  field  1  into  temp 
repeat  until  the  length  of  temp  =  1 
put  q>ace  after  last  char  of  temp 
endrq)eat 

put  temp  after  last  char  of  templine 
put  item  3  of  line  j  of  field  1  into  temp 
repeat  until  the  length  of  temp  =  20 
put  space  after  last  char  of  temp 
endrq)eat 

put  temp  aft^  last  char  of  templine 
put  "M-"  &  item  4  of  line  j  of  field  1  &  space  &  space-) 
after  last  char  of  templine 
if  item  5  of  line  j  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  & 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildate(item  S  of  line  j  of  field  1)  &  space  -< 

&  space  after  last  char  of  templine 
end  if 

if  item  6  of  line  j  of  field  1  is  empty  then 
put  space  &  space  &  space  &  space  &  space  &  space  &  space  & 
space  &  space  &  space  &  space  after  last  char  of  templine 
else 

put  mildate(item  6  of  line  j  of  field  1)  &  space  -> 

&  space  after  last  char  of  templine 
end  if 

put  item  7  of  line  j  of  field  1  &  space  &-) 
item  8  of  line  j  of  field  1  &  space  &  -i 
item  9  of  line  j  of  field  1  after  last  char  of  templine 
put  templine  into  line  linenum  of  field  2 
end  if 
end  if 
end  repeat 
endrq)eat 

go  to  card  view_data 
put  empty  into  field  viewer 
go  to  c^  draw 
repeat  with  cardnum  =  1  to  4 
go  to  next  card 

put  field  2  after  last  char  of  field  viewer  of  card  view_data 
end  repeat 

go  to  card  vicw_data 

convert  today  to  short  date 

put  milDate(today)  into  card  field  update 


put  card  field  update  into  card  field  mob_update  of  card  mob_ 
end  if 

end  mouseUp 
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APPENDIX  E.  SCHEDULES  STACK  SCRIPTS 


SCRIPTS  FOR  STACK;  schedules 


**  STACK  SCRIPT  **************i>*************'*****'** 

function  validDate  date 
put  date  into  tempdate 

if  the  length  of  tempdate  <  6  or  the  length  erf'  tempdate  >  8  then 
return  false 
else 

if  the  length  of  tempdate  =  6  then 
if  char  1  of  tempdate  is  not  in  "123456789”  then 
return  false 
end  if 

if  char  2  of  tempdate  o  T  then 
return  false 
end  if 

if  char  3  of  tempdate  is  not  in  "  123456789"  then 
return  false 
end  if 

if  char  4  of  tempdate  o  "/”  then 
return  false 
end  if 

if  char  5  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  6  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 
end  if 

if  the  length  of  tempdate  =  7  then 
if  char  3  of  tempdate  =  T  then 
if  char  1  of  tempdate  is  not  in  "12”  then 
return  false 
end  if 

if  char  2  of  tempdate  is  not  in  "012"  then 
return  false 
end  if 

if  char  4  of  tempdate  is  not  in  "123456789”  then 
return  false 
end  if 

if  char  5  of  tempdate  <>  "/"  then 
return  false 
end  if 

if  char  6  of  tempdate  is  not  in  "1234567890"  then 
return  false 
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end  if 

if  char  7  of  tempdate  is  not  in  "1234567890"  then 
return  Mse 
end  if 
else 

if  char  2  of  tennpdate  =  "T  then 
if  char  1  of  tempdate  is  not  in  "123456789"  then 
return  false 
end  if 

if  char  3  of  tempdate  is  not  in  "123"  then 
return  false 
end  if 

if  char  4  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  5  of  tempdate  o  "/"  then 
rettim  false 
end  if 

if  char  6  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  7  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  1  of  tempdate  =  2  then 
if  char  3  of  tempdate  =  3  then 
return  false 
else 

if  char  3  of  tempdate  =  2  then 
if  char  4  of  tempdate  =  9  then 
put  char  6  to  7  of  tempdate  into  year 
if  year  mod  4  o  0  then 
return  false 
end  if 
end  if 
end  if 
end  if 
end  if 

if  char  1  of  tempdate  is  in  "469"  then 
if  char  3  of  tempdate  =  3  then 
if  char  4  of  tempdate  o  0  then 
return  false 
end  if 
end  if 
end  if 

if  char  3  of  tempdate  =  3  then 
if  char  4  of  tempdate  >  1  then 
renun  false 
end  if 
end  if 
end  if 
end  if 
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end  if 

if  the  length  of  tempdate  =  8  then 
if  char  3  of  tetnpd^  o  "T  then 
return  false 
end  if 

if  char  6  of  tempdate  o  "T  then 
fetum  false 
end  if 

if  char  1  of  tempdate  o  1  then 
return  false 
end  if 

if  char  2  of  tempdate  is  not  in  ”012"  then 
return  false 
end  if 

if  char  4  of  tempdate  is  not  in  "123"  then 
return  fdse 
end  if 

if  char  5  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  7  of  tempdate  is  not  in  "  1234567890"  then 
return  false 
end  if 

if  char  8  of  tempdate  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  2  of  tempdate  =  1  then 
if  char  4  of  tempdate  =  3  then 
if  char  5  of  tempdate  <>  0  then 
reoim  false 
end  if 
end  if 
end  if 

if  char  4  of  tempdate  =  3  then 
if  char  5  of  tempdate  >  1  then 
return  false 
end  if 
end  if 
end  if 
end  if 
renim  true 
end  validDate 
function  validQtr  qtr 
if  the  length  of  qtr  o  4  then 
return  false 
end  if 

if  char  1  of  qtr  is  not  in  "1234"  then 
return  false 
end  if 

if  char  2  of  qtr  is  not  in  "-/”  then 
return  false 
end  if 


142 


if  char  3  of  qtr  is  not  in  "1234567890"  then 
return  false 
end  if 

if  char  4  qtr  is  not  in  "1234567890"  then 
return  false 
end  if 
return  true 
end  validQir 

function  goodDate  start,date 
convert  date  to  seccrds 
convert  start  to  seconds 
if  date  <  start  then 
return  false 
end  if 

convert  date  to  dateltems 
convert  start  to  dateltems 
if  item  2  of  date  >  item  2  (rf  start  +  2  then 
return  false 
end  if 

if  item  1  of  date  >  item  1  of  start  then 
return  false 
end  if 
return  true 
end  goodDate 
function  convertQtr  qtr 
put  char  1  of  qtr  *  3  •  2  into  tempdate 
put "/"  &  1  after  last  char  of  tempdate 
put  T  &  char  3  to  4  of  qtr  after  last  char  of  tempdate 
return  tempdate 
end  convertQtr 
function  lastDay  date 

if  the  length  of  date  =  7  or  char  1  of  date  =  7  then 
return  93 
end  if 

if  char  1  of  date  =  4  then 
return  92 
end  if 

put  char  5  to  6  of  date  into  yr 
if  yr  mod  4  =  0  and  yr  o  "00"  then 
return  92 
else 

return  91 
end  if 
end  lastDay 
function  fiscal  date 
if  the  length  of  date  =  7  then 
put  char  6  to  7  of  date  into  yr 
if  yr  <  80  then 
return  2000  +  yr  +  1 
else 

return  1900  +  yr  +  1 
end  if 
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else 

put  char  5  to  6  of  date  into  yr 
if  yr  <  80  then 
return  2000  +  yr 
else 

return  1900  +  yr 
end  if 
end  if 
end  fiscal 

function  qNum  date 
if  the  length  of  date  =  7  then 
return  "4th" 
end  if 

if  char  1  of  date  =  1  then 
return  "1st" 
end  if 

if  char  1  of  date  =  4  then 
return  "2nd" 
end  if 

if  char  1  of  date  =  7  then 
return  "3rd" 
end  if 
end  qNum 

function  dayNum  start,dale 
put  Stan  into  tempstan 
put  date  into  tempdate 
conven  tempstan  to  seconds 
conven  tempdate  to  seconds 
put  tempdate  +  86400  into  tempdate 
return  (tempdate  -  iempstan)/86400 
end  dayNum 
funebon  milDate  date 
if  date  is  empty  then 
return  empty 
end  if 

convert  date  to  abbr  date 
if  the  length  of  item  2  of  date  =  6  then 
put  "0"  &  char  6  of  item  2  of  date  into  temp 
else 

put  char  6  to  7  of  item  2  of  date  into  temp 
end  if 

put  space  &  char  2  of  item  2  of  date  after  last  char  of  temp 
put  numToChar(charToNum(char  3  of  item  2  of  date)  -  32) 
after  last  char  of  temp 

put  numToChar(charToNum(char  4  of  item  2  of  date)  -  32)  -> 
after  last  char  of  temp 

put  qrace  &  char  4  to  5  of  item  3  of  date  after  last  char  of  temp 
return  temp 
end  milDate 

funebon  dayDate  start, day 
put  start  into  tempstan 
conven  tempstan  to  seconds 
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pul  (day  -1)  •  864(X)  +  tempstart  into  dateday 
convert  dateday  to  sh(»t  date 
return  nulDate(dateday) 
mddayDate 

••  BACKGROUND  #1;  Operations . 

on  openStack 
hide  message  box 
show  tnenuBar 
pass  openStack 
end  openStack 

**  CARD#1:  schedules  •**••*••••••••••■»•**•**••**••*•*•••• 

onopenCard 
hide  field  1 
hide  field  2 
endopenCard 

*•  CARD  #1,  BUTTON  #1:  return  ***•*••••**•*••*•••••••*•••*•••**•** 

on  mouseUp 
go  to  operations 
end  mouseUp 

••  CARD  #1.  BUTTON  #2:  exit  ••••••••••••••••••*••**•****•••*•••* 

on  mouseUp 
goargos 
end  mouseUp 


••  CARD  #1,  BUTTON  #3;  schedules 
on  mouseDown 

put  "EmpSkedsJ^ew  Schedule,Modif>’  Schedule,Delele  Schedule, Draw  Chart"  into  menul 
gel  HPopupMenu(menul,0,80,65) 
if  it  is  not  zero  then 
Put  Item  1  of  it  into  TheLine 
put  Item  2  of  it  into  Thellem 
If  TheLine  =  1  and  Theliem  =  2  then 
go  to  card  newsked 
end  if 

If  TheLine  =  1  and  Theltem  =  3  then 
go  to  card  modify 
end  if 

If  TheLine  =  I  and  Theltem  =  4  then 
go  to  card  skedfile 
end  if 

if  TheLine  =  1  and  Theltem  =  5  then 
go  to  card  draw 
end  if 
end  if 

end  mouseDown 


**  CARD  #2"  newsked  ••••••••*•*••*•••*•»*•••••**•**••*•• 

on  openCard 
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put  card  field  start  into  oldstait 
put  empty  into  card  field  title 
put  empty  into  card  field  start 
put  empty  into  card  field  sked.box 
put  empty  into  card  field  days 
ask  Tide  of  New  schedule" 
if  it  is  not  empty  then 
repeat  until  offset(",",it)  =  0 
ask  "No  commas  allowed  in  title,  try  again” 
if  it  is  empty  then 

send  mouseUp  to  card  button  "return” 
exitopenCard 
end  if 
end  repeat 

put  it  into  card  field  title 
repeat  until  validQtr(it) 
ask  "Enter  calendar  quarter  of  schedule” 
if  it  is  empty  then 

send  mouseUp  to  card  button  "return" 
exit  openCard 
end  if 

if  validQtr(it)  then 

put  convertQtr(it)  into  card  field  start 
select  after  last  char  of  card  field  enter_box 
exit  repeat 
else 

ask  "Enter  calendar  quarter  of  schedule" 
if  validQtr(it)  then 
if  it  is  empty  then 

send  mouseUp  to  card  button  "return” 
exit  openCard 
end  if 

put  convenQtr(it)  into  card  field  start 
select  after  last  char  of  card  field  enter_box 
exit  repeat 
end  if 
end  if 
end  repeat 

if  oldstart  <>  card  field  start  then 
send  mouseUp  to  card  button  draw 
end  if 

select  after  last  char  of  card  field  enter_box 
else 

send  mouseUp  to  card  button  "return" 
end  if 

end  openCard 

**  CARD  #2,  FIELD  #4:  cnter_box  •••••••••••••*•*••••*•**•*••*•••*••• 

on  tabKey 

send  mouseUp  to  card  button  "enter_info" 
end  tabKey 

**  CARD  #2,  BUTTON  #1;  Save  Sked  ••**•*•***••••***••**•*♦**•*•****••* 

on  mouseUp 
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if  caid  field  sked.box  is  empty  then 
answer  "No  schedule  to  save"  with  "return” 
exit  mouseUp 
else 

setcurs(X'to4 

put  lastDay(card  field  start)  -  1  into  numdays 
repeat  with  j  =  1  to  numdays 
if  line  j  of  card  field  days  is  empty  then 

answer  "No  major  employment  scheduled  for "  &  dayE>ate(caFd  field-i 
stanj)  with  "Return" 
exit  mouseUp 
end  if 
eodrqieat 
set  cursor  to  4 
set  lockMessages  to  true 
set  lockScreen  to  true 
put  card  field  start  into  staitdate 
put  card  field  title  into  skedtitle 
put  card  field  dtle  &  "  ”  into  skedname 
put  the  length  of  card  field  start  into  len 
if  len  s  6  then 

put  (char  1  of  card  field  start  +  2)/3  after  last  char  of  skedname 
put  char  len  -  2  to  len  of  card  field  start  after  last  char  of 
skedname 

go  to  card  skedname 
else 

put  (char  1  to  2  of  card  field  start  +  2)/3  after  last  char 
of  skedname 

put  char  len  -  2  to  len  of  card  field  start  after  last  char  of  -i 
skedname 

go  to  card  skedname 
end  if 

if  the  result  is  empty  then 
beep 

go  to  card  newsked 

answer  "That  schedule  title  is  saved"  with  "Cancel"  or—. 

"Change  title"  or  "Replace  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

if  it  is  "Change  title"  then 
send  mouseUp  to  card  button  "change  title" 
exit  mouseUp 
else 

go  to  card  skedname 

put  card  field  sked_box  of  card  newsked  into  card  field  sked 

put  skedtitle  into  card  field  title 

put  staitdate  into  card  field  start 

go  to  card  newsked 

put  empty  into  card  field  title 

put  empty  into  card  field  sked_box 

exit  mouseUp 
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end  if 

set  lockscreen  to  tnie 

doMenu  "new  card" 

set  the  name  of  this  card  to  skedname 

go  to  card  skedname 

doMenu  "new  field" 

set  name  of  card  field  1  to  "sked" 

set  style  of  card  field  1  to  scrolling 

set  reel  of  card  field  1  to  I^^IO^O 

set  iextfont  of  card  field  1  to  courier 

set  lextsize  a[  card  field  1  to  12 

doMenu  "new  field" 

set  name  of  card  field  2  to  "title" 

set  style  of  card  field  2  to  tranqiarent 

set  rect  of  card  field  2  to  0,6^20^3 

set  textfont  of  card  field  2  to  courier 

set  textsize  of  card  field  2  to  12 

doMenu  "new  field" 

set  name  of  card  field  3  to  "stan” 

set  style  of  card  field  3  to  transparent 

set  rect  of  card  field  3  to  427,6^09^3 

set  textfont  of  card  field  3  to  courier 

set  textsize  of  card  field  3  to  12 

doMenu  "new  field" 

set  name  of  card  field  4  to  "days" 

set  style  of  card  field  4  to  transparent 

set  rect  of  card  field  4  to  1,285,30342 

set  textfont  of  card  field  4  to  courier 

set  textsize  of  card  field  4  to  12 

put  card  field  sked_box  of  card  newsked  into  card  field  sked 

put  skedtiile  into  card  field  title 

put  staitdate  into  card  field  start 

put  card  field  days  of  card  newsked  into  card  field  days 

choose  browse  tool 

put  empty  into  card  field  title  of  card  newsked 
put  empty  into  card  field  sked_box  of  card  newsked 
put  empty  into  card  field  days  of  card  newsked 
go  to  card  skedfile 

put  skedname  &  return  after  last  char  of  card  field  listing 
set  lockMessages  to  false 
go  to  card  newsked 
set  lockscreen  to  false 
end  if 

endmouseUp 

•*  CARD  #2,  BUTTON  #2:  Delete  Sked 

on  mouseUp 

if  card  field  sked_box  is  empty  then 
answer  "No  schedule  to  delete"  with  "return" 
else 


put  empty  into  card  field  enter_box 
put  empty  into  card  field  sked.box 
put  empty  into  card  field  title 
put  empty  into  card  field  start 
send  openCard  to  card  newsked 
end  if 

endmouseUp 

••  CARD  #2.  BUTTON  #3:  enter_info  ••••*•*•••••*••••••• 

on  mouseUp 

put  empty  into  tempname 
if  card  field  title  is  empty  then 

answer  "Schedule  must  have  a  title"  with  "Cancel”  or  "Title" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "change  title" 
end  if 
end  if 

if  card  field  start  is  empty  then 

answer  "No  schedule  quarter  entered"  with  "Cancel"  or  "Enter" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "change  qtr" 
send  mouseUp  to  card  button  "draw" 
end  if 
end  if 

if  line  1  of  card  field  entcr_box  is  empty  then 
ask  "No  event  name,  Enter  event  name" 
if  it  is  empty  then 

put  empty  into  card  field  enier_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

find  string  it  in  field  1 
if  the  result  is  not  empty  then 
repeat  until  the  result  is  empty 
ask  "Invalid  event  name,  Enter  event  name" 
if  it  is  empty  then 

put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

find  string  it  in  field  1 
end  repeat 

put  it  into  line  1  of  card  field  enter_box 
end  if 

put  word  2  of  the  foundLine  into  namelot 
if  item  3  of  line  nameloc  of  field  1  is  empty  then 
pul  "A"  into  uwcode 
else 


149 


put  item  3  of  line  nameloc  of  field  1  into  uwcode 
end  if 

put  it  into  line  1  of  card  field  enter_box 
else 

find  string  line  1  of  card  field  enter.box  in  field  1 
if  the  result  is  not  empty  then 
repeat  until  the  result  is  empty 
ask  "Invalid  event  name,  ^ter  event  name" 
if  it  is  empty  then 
put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter_box 
exitmouseUp 
end  if 

find  string  it  in  field  1 
end  repeat 

put  it  into  line  1  of  card  field  enter_box 
end  if 

put  word  2  of  the  foundLine  into  nameloc 
if  item  3  of  line  nameloc  of  field  1  is  empty  then 
put  "A"  into  uwcode 
else 

put  item  3  of  line  nameloc  of  field  1  into  uwcode 
end  if 
end  if 

put  line  1  of  card  field  enter_box  &  after  last  char-> 
of  tempname 

put  line  2  of  card  field  enter_box  into  it 
r^)eat  until  validDatefit)  is  true  and  -< 
goodDate(card  field  starUt)  is  true 
if  validOate<it)  is  false  then 
ask  it  &&  "Not  a  valid  start  date,  Enter  correct  date” 
end  if 

if  it  is  empty  then 

put  empty  into  card  field  enier_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

if  goodDate(card  field  starlit)  is  false  then 
ask  "Date  must  be  in  sked  qi  <Jter,  enter  date" 
end  if 

if  it  is  empty  then 

put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
endiepeat 

put  it  into  line  2  of  card  field  enter_box 

put  line  2  of  card  field  enter_box  &  after  last  char-. 

of  tempname 

put  line  3  of  card  field  enter_box  into  it 
repeat  until  validDate(it)  is  true  and 
goodDate(card  field  stanjt)  is  true 
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if  validDatefit)  is  false  then 
ask  it  &&  "Not  a  valid  end  date,  Enter  correct  date" 
end  if 

if  it  is  empty  then 

put  empty  into  card  field  enter_box 
select  aftiN  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

if  goodDate(card  field  start,it)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

put  empty  into  card  field  enter_box 
select  tfter  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
endrq)eat 

put  it  into  line  3  of  card  field  ent^.box 

put  line  3  of  card  field  enter_box  &  after  last  char  of  tempname 
put  uwcode  &  after  last  char  of  tempname 
if  the  number  of  lines  in  card  field  sked_box  >=  30  then 
answer  "Schedule  is  full  (30  Items  max)"  with  "Cancel"  or-i 
"Save  sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "save  sked" 
exit  mouseUp 
end  if 
end  if 

answer  "What  type  of  employment  ?"  with  "Major"  or  "Concurrent' 
if  it  is  "major"  then 
put  "M,"  after  last  char  of  tempname 
pul  dayNum(card  field  start  jiem  2  of  tempname)  into  siartday 
put  dayNum(caTd  field  startatem  3  of  tempname)  into  stopday 
repeat  with  j  =  startday  to  stopday 
if  line  j  of  card  field  days  is  not  empty  then 
answer  "Two  major  employments  on  "  &&  -i 
dayDate(card  field  start  j)  with  "Return" 
if  j  o  1  then 
putj  -  1  into  erase 
rq)eat  with  k  =  startday  to  erase 
put  empty  into  line  k  of  card  field  days 
end  repeat 
end  if 

put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

put  "X"  into  line  j  of  card  field  days 
end  repeat 
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put  "C,"  after  last  char  of  tempname 
end  if 

if  item  4  of  line  nameloc  of  field  1  is  not  empty  then 
ask  "Enter  location  name" 
if  it  is  empty  then 
put a^  last  char  of  tempname 
else 

put  it  &  "."  after  last  char  of  tempname 
end  if 
else 

put ","  after  last  char  of  tempname 

e^if 

if  item  5  of  line  nameloc  of  field  1  is  not  empty  then 
adr  "Enter  unit  name" 
if  it  is  empty  then 
put ","  after  last  char  of  tempname 
else 

put  it  &  ","  after  last  char  of  tempname 
end  if 
else 

put after  last  char  of  tempname 
end  if 

if  item  6  of  line  nameloc  of  field  1  is  not  empty  then 
ask  "Enter  operation/exercise  number" 
if  it  is  empty  then 
put after  last  char  of  tempname 
else 

put  it  &  ","  after  last  char  of  tempname 
end  if 
else 

put ","  after  last  char  of  tempname 
end  if 

put  tempname  &  return  after  last  char  of  card  field  sked_box 
pul  empty  into  card  field  enier_box 
select  ^ter  last  char  of  card  field  enier_box 
end  mouseUp 


•*  CARD  #2,  BUTTON  #4;  Delete  Item  •••••••**•••••*•••••**••••*•**•***** 

on  mouseUp 

if  card  field  sked.box  is  empty  then 
answer  "No  events  to  delete"  with  "return" 
exit  mouseUp 
end  if 

ask  "Enter  event  name" 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
else 

set  cursor  to  4 
put  it  into  tgt 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  sked_box 
if  tgt  =  item  1  of  line  j  of  card  field  sked_box  then 
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put  dayNum(card  field  start,item  2  of  line  j  of  card  field  -i 
sked_tex)  into  startdate 

put  dayNuin(card  Held  staruitem  3  of  line  j  of  card  field  -> 
sked.box)  into  stopdate 
rqieat  with  x  =  startdate  to  stopdate 
put  empty  into  line  x  of  card  field  days 
e^  repeat 

delete  line  j  of  card  field  sked.box 
sdect  after  last  char  of  card  field  enter_box 
exitmouseUp 
end  if 

if  j  s  die  number  of  lines  in  card  field  sked_box  then 
answer  '^vent  not  found"  with  "Return” 
select  after  last  char  of  card  field  enter.box 
end  if 
end  repeat 
end  if 

end  mouseUp 

**  CARD  #2,  BUTTON  #5:  Change  Title 
on  mouseUp 
ask  "Enter  new  title" 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
else 

put  it  into  card  field  title 
select  after  last  char  of  card  field  enter_box 
end  if 

end  mouseUp 

••  CARD  #2,  BUTTON  #6:  Change  Qtr 
on  mouseUp 

ask  "Enter  new  Quarter  {QfYY)" 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
else 

if  validQtr(it)  then 
put  char  1  of  it  *  3  -  2  into  tempdate 
put  ”r  &  1  after  last  char  of  tempdate 
put  T  &  char  3  to  4  of  it  after  last  char  of  tempdate 
put  tempdate  into  card  field  start 
select  after  last  char  of  card  field  enier_box 
exit  mouseUp 
else 

rqieat  until  validQtrfit) 

ask  "Invalid,  Ento*  calendar  quarter  of  schedule” 
if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
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if  validQtr(it)  then 
put  char  1  of  it  *  3  -  2  into  tempdate 
put  T  &  1  after  last  char  al  tempdate 
put  T  &  char  3  to  4  of  it  after  last  char  of  tempdate 
put  tempdate  into  card  field  start 
select  alto  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
end  repeat 
end  if 
end  if 

endmouseUp 

**  CARD  #2,  BUTTON  #7;  DRAW  •*•••**••*••••••* 

on  mouseUp 

if  card  field  start  is  empty  then 
exit  mouseUp 
end  if 

set  cursor  to  4 

show  card  field  working 

set  lockScreen  to  true 

choose  pencil  tool 

cUckatSO.llO 

click  at  400,100 

choose  select  tool 

drag  from  0,80  to  190,290 

type  "x"  with  commandKey 

drag  from  360,80  to  513,200 

type  "x"  with  commandKey 

choose  text  tool 

set  textSize  to  9 

set  textFont  to  geneva 

set  textAlign  to  left 

set  textStyle  to  plain 

set  textHeight  to  9 

cUck  at  19,103 

type"S" 

click  at  33,103 

type"M" 

click  at  49,103 

type-T" 

click  at  64,103 

type"W" 

click  at  79,103 

typeT" 

click  at  96,103 

type"F 

cUck  at  1 10,103 

type's" 

put  card  field  start  into  temp 
convert  temp  to  long  date 
click  at  18,91 
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type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  IIS  intolinelM 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  1  +  15  *  k)c.lincIoc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type "  "  &  item  3  of  temp 
end  if 

if  loc  s  7  then 
put  lineloc  +13  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
end  repeal 

convert  temp  to  long  date 
click  at  18^04 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  216  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  1  +  15  •  loc.lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
el% 

type "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  +  1 3  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
endtq)eat 
click  at  407,103 
type's" 
click  at  421,103 
type'M" 
cUck  at  437.103 
typeT" 
click  at  452,103 
type"W" 
click  at  467,103 
type-r 
click  at  484,103 
type'F" 
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click  at  498,103 
typc-S" 

convert  temp  to  long  date 
click  at  406,91 

type  word  1  of  item  2  of  temp  &&.  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  IIS  intolineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  389  IS  *  loc,lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
el» 

type  "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  +13  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
endrqjeat 
choose  browse  tool 
hide  card  field  w(vking 
end  mouseUp 

••  CARD  #2,  BUTTON  #8:  Return  •**••••••**••••*••••••*••*•••****•** 

on  mouseUp 

if  card  field  sked_box  is  empty  then 
go  to  card  schedules 
exit  mouseUp 
end  if 

answer  "Unsaved  schedule  will  be  lost"  with  "OK"  or  "Return" 
if  it  is  "return"  then 

select  after  last  char  of  card  field  enier_box 
exit  mouseUp 
end  if 

put  empty  into  card  field  title 
put  empty  into  card  field  sked_box 
put  empty  into  card  field  enter_box 
go  to  card  schedules 
end  mouseUp 


••  CARD  #2,  BUTTON  #9:  View  Terms 
on  mouseUp 
push  card 
go  to  card  terms 
end  mouseUp 


*•  CARD  #5,  BUTTON  #1;  Return 
on  mouseUp 
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go  to  card  schedules 
end  mouseUp 

••  CARD  #5.  BUTTON  #2:  Delete  Schedule 
on  mouseUp 
set  lockSoeen  to  true 
set  lockMessages  to  true 
if  card  field  listing  is  empty  then 
answer  "No  schedules  on  file"  with  "Return" 
exit  mouseUp 
end  if 

ask  "Enter  name  of  schedule  to  delete" 
if  it  is  empty  then 

send  mouseUp  to  card  button  "return” 
exit  mouseUp 
else 

repeat  with  j  =  I  to  the  number  of  lines  in  card  field  listing 
if  it  =  line  j  of  card  field  listing  then 
exit  repeat 
end  if 

if  j  =  the  number  of  lines  in  card  field  listing  then 
answer  "Schedule  not  found"  with  "Return" 
send  mouseUp  to  card  button  "delete  schedule" 
exit  mouseUp 
end  if 
endrqieat 

put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
doMenu  "delete  card" 
go  to  card  skedfile 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  listing 
if  it  =  line  j  of  card  field  listing  then 
delete  line  j  of  card  field  listing 
exit  repeat 
end  if 
end  repeat 
end  if 

end  mouseUp 

**  Card  #6'  modify  *************'*********************** 
onopenCard 

put  card  field  start  into  oldstart 

put  card  field  listing  of  card  skedfile  into  card  field  listing 

show  card  field  listing 

hide  card  field  title 

set  lockMessages  to  true 

set  lockScreen  to  true 

ask  "Enta-  schedule  name" 

if  it  is  empty  then 

send  mouseUp  to  card  button  "return" 
exit  openCard 
else 
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put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  Held  skedname 
put  "card"  &&.  quote  &  it  &  quote  into  tempname 
go  to  tempname 
end  if 

if  the  result  is  not  empty  then 
rq)e«  until  the  result  is  empty 
go  to  card  "modify" 

ask  "Schedule  not  found,  Enter  schedule  name" 
put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
put  "card"  &.&  quote  &  it  &  quote  into  tempname 
go  to  tempname 
eodrqpeat 
end  if 

put  the  short  id  of  this  card  into  card  field  cardjd  of  card  modify 
put  card  field  sked  into  card  field  sked_box  of  card  modify 
put  card  field  title  into  card  field  title  of  card  modify 
put  card  field  start  into  card  field  start  of  card  modify 
go  to  card  "modify" 
set  lockscreen  to  false 
if  oldstart  o  card  field  start  then 
send  mouseUp  to  card  button  draw 
end  if 

hide  card  field  listing 
show  card  field  title 

select  after  last  char  of  card  field  enter_box 
endopenCard 

••  CARLi  #6,  FIELD  #1:  er.ter_box 
on  tabKey 

send  mouseUp  to  card  button  "enter_info" 
end  tabKey 

**  CARD  #6,  BUTTON  #1:  Return 
on  mouseUp 

if  card  field  sked_box  is  empty  then 
go  to  card  schedules 
exit  mouseUp 
end  if 

ans»'er  "ijnoaved  changes  will  be  lost"  with  "OK"  or  "Return" 
if  it  is  "return"  then 
exit  mouseUp 
end  if 

put  empty  into  card  field  sked.box 
put  empty  into  card  field  title 
put  empty  into  card  field  entcr_box 
go  to  c^  schedules 
end  mouseUp 


**  CARD  #6,  BUTTON  #2;  Delete  Event  ••*•••*•••**••••••••*•*••*»••**•**** 

on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Gel  schedule  first"  with  "Cancel"  or  "Get  Sked" 
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if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked” 
exit  mouseUp 
end  if 
^if 

ask  "Enter  Event  name” 
if  it  is  empty  then 
exit  mouseUp 
else 

put  it  into  tgt 

nqjeat  with  j  =  1  to  the  number  of  lines  in  card  field  sked.box 
if  tgt  =  item  1  of  line  j  of  card  field  sked_box  then 
delete  line  j  of  card  field  sked_box 
exit  mouseUp 
end  if 

if  j  =  the  number  of  lines  in  card  field  sked_box  then 
answer  "Event  not  found"  with  "Return" 
end  if 
end  repeat 
end  if 

end  mouseUp 

**  CARD  #6,  BUTTON  #3;  Change  Date 
on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
end  if 

ask  "Enter  Event  name" 
if  it  is  empty  then 
exit  mouseUp 
else 

put  it  into  tgt 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  sked_box 
if  tgt  =  item  1  of  line  j  of  card  field  sked_box  then 
put  j  into  linenum 
exit  rq)eat 
end  if 

if  j  =  the  number  of  lines  in  card  field  sked_box  then 
answer  "Event  not  found"  with  "Return" 
exit  mouseUp 
end  if 
end  repeat 

repeat  with  j  =  1  to  1 
ask  "Enter  new  stan  date" 
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if  it  is  empty  then 
exit  repeat 
else 

rq)eat  until  validDate(it)  is  true  and  -> 
goodE>ate(caid  field  starlit)  is  true 
if  validDate(it)  is  false  then 
ask  it  &&  "Not  a  valid  start  date,  Enter  correct  date" 
end  if 

if  it  is  empty  then 
exit  repeat 
end  if 

if  goodDate(card  field  starlet)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 
exit  repeat 
end  if 
end  repeat 

put  it  into  item  2  of  line  linenum  of  card  field  sked_box 
end  if 
end  repeal 

ask  "Enter  new  end  date" 
if  it  is  empty  then 
exit  mouseUp 
else 

repeat  until  validDate(it)  is  true  and  -> 
goodDaie(card  field  start,it)  is  true 
if  validDate(it)  is  false  then 
ask  it  &&  "Not  a  valid  end  date.  Enter  correct  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

if  goodDaie(card  field  start,il)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 
end  repeat 

put  it  into  item  3  of  line  linenum  of  card  field  skcd_box 
end  if 
end  if 

end  mouseUp 

*•  CARD  #6,  BUTTON  #4;  Add  Event 
on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
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exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
end  if 

put  empty  into  card  field  enter_box 
select  afta  last  char  of  card  field  enter_box 
end  mouseUp 

•*  CARD  #6,  BUTTON  #5:  Save  Changes 
on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Get  schedule  first"  with  "Cancel"  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
end  if 

pul  card  field  cardjd  into  cardjd 

put  card  field  sked_box  into  card  field  sked  of  card  id  cardjd 
put  empty  into  card  field  skedname 
put  empty  into  card  field  sked_box 
put  empty  into  card  field  dtle 
put  empty  into  card  field  enier_box 
send  apatCard  to  card  modify 
end  mouseUp 

••  CARD  #6.  BLTTON  #6:  Cancel  Changes 
on  mouseUp 

if  visible  of  card  field  listing  is  true  then 
answer  "Get  schedule  first"  with  "Cancel”  or  "Get  Sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  buuon  "get  sked” 
exit  mouseUp 
end  if 
end  if 

put  card  field  cardjd  into  cardjd 

put  card  field  sked  of  card  id  cardjd  into  card  field  sked_box 
select  after  last  char  of  card  field  enter_box 
end  mouseUp 

**  CARD  #6,  BUTTON  #7;  DRAW  •*•*••*••*•*••••*•••••*•••••••••••** 

on  mouseUp 

if  card  field  start  is  empty  then 
exit  mouseUp 
end  if 

set  cursor  to  4 
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show  card  field  working 

set  lockScreen  to  true 

choose  pencil  tool 

click  at  50.110 

click  at  400,100 

choose  select  tool 

drag  firom  0,80  to  160,290 

type  "x"  with  commandKey 

drag  from  360,80  to  513,200 

typf  "x"  with  conunandKey 

choose  text  tool 

set  textSize  to  9 

set  textFbnt  to  geneva 

set  textAlign  to  left 

set  textStyle  to  plain 

set  textHeight  to  9 

click  at  49,103 

type-S" 

click  at  63,103 

type  "M" 

click  at  79,103 

type"T" 

click  at  94,103 

type"W" 

cUck  at  109,103 

type'T" 

cUck  at  126,103 

typeT" 

click  at  140,103 

type"S’’ 

put  card  field  start  into  temp 
convert  temp  to  long  date 
click  at  48,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  1 15  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  +  15  •  loc,lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  13  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
end  repeat 
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convert  temp  to  long  date 
click  at  48^04 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  216  into  lineloc 
rqieat  while  item  2  of  temp  =  mon 
put  item  7  of  temp  into  loc 
click  at  31  +  IS  *  loc.lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  -«■  13  into  lineloc 
end  if 

convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
end  repeat 
click  at  387,103 
type-S- 
click  at401,103 
type  "M" 
click  at  417,103 
type-T" 
click  at  432,103 
type-W" 
cUck  at  447,103 
type-r 
click  at  464,103 
type"F" 
cUck  at  478,103 
type  "S" 

convert  temp  to  long  date 
cbck  at  386,91 

type  word  1  of  item  2  of  temp  &&  item  3  of  temp 
convert  temp  to  dateltems 
put  item  2  of  temp  into  mon 
put  115  into  lineloc 
repeat  while  item  2  of  temp  =  mon 
pul  item  7  of  temp  into  loc 
click  at  369  +  15  *  loc.lineloc 
if  item  3  of  temp  >  9  then 
type  item  3  of  temp 
else 

type  "  "  &  item  3  of  temp 
end  if 

if  loc  =  7  then 
put  lineloc  +  1 3  into  lineloc 
end  if 


convert  temp  to  seconds 
put  86400  +  temp  into  temp 
convert  temp  to  dateltems 
endrq)eat 
choose  l»owse  uxd 
hide  card  field  working 
endmooseUp 

**  CARD  #6,  BUTTON  #8:  ensef_into  ••*******f  *»**•»**•*»♦**•***♦•*•♦*•■* 
on  mouseUp 

put  empty  into  tempname 
if  card  field  title  is  empty  then 

answer  'Schedule  must  have  a  title"  with  "Cancel"  or  "Title" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "change  tide" 
end  if 
end  if 

if  card  field  start  is  empty  then 

answer  "No  schedule  quarter  entered"  with  "Cancel"  or  "Enter” 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  m  -useUp  to  card  button  "change  qtr" 
send  mouseUp  to  card  buaon  "draw" 
end  if 
end  if 

if  line  1  of  card  field  enier_box  is  empty  then 
ask  "No  event  name,  Enter  event  name" 
if  it  is  empty  then 

put  empty  into  card  field  enier_box 
select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

put  it  into  line  1  of  card  field  enter_box 
end  if 

put  line  1  of  card  field  enier_box  &  after  last  char-, 
of  tempname 

put  line  2  of  card  field  enier_box  into  it 
rq>eat  until  validDate(it)  is  true  and 
goodDate(card  field  startit)  is  true 
if  validDatefit)  is  false  then 
ask  it  &.&  "Not  a  valid  start  date,  Enter  correct  date” 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  enter_box 
exit  mouseUp 
end  if 

if  goodDate(card  field  start,it)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 


if  it  is  empty  then 

select  after  last  char  of  card  field  enter.box 
exit  mouseUp 
end  if 
endrqyeat 

put  it  into  line  2  of  card  field  enta.box 

put  line  2  of  card  field  enter_box  &  after  last  char-> 

oftempname 

put  line  3  of  card  field  enter.box  into  it 
repeat  until  validDate(it)  is  true  and  -■ 
g()OdDate(caid  field  starut)  is  true 
if  validDate(it)  is  false  then 
ask  it  &&  "Not  a  valid  end  date,  Ertter  correct  date" 
end  if 

if  it  is  empty  then 

select  after  last  char  of  card  field  ento'.box 
exit  mouseUp 
end  if 

if  goodDate(card  field  starlit)  is  false  then 
ask  "Date  must  be  in  sked  quarter,  enter  date" 
end  if 

if  it  is  empty  then 

select  after  last  cliar  of  card  field  enter_box 
exit  mouseUp 
end  if 
endrqieat 

put  it  into  line  3  of  card  field  enter.box 

put  line  3  of  card  field  enter_box  &  return  after  last  char  of 

tempname 

if  the  number  of  lines  in  card  field  sked.box  >=  IS  then 
answer  "Schedule  is  full  (15  Items  max)"  with  "Cancel"  or-i 
"Save  sked" 
if  it  is  "cancel"  then 
exit  mouseUp 
else 

send  mouseUp  to  card  button  "save  sked" 
exit  mouseUp 
end  if 
end  if 

put  tempname  after  last  char  of  card  field  sked_box 
put  empty  into  card  field  enter_box 
select  after  last  char  of  card  field  entCT_box 
end  mouseUp 

••  CARD  #6.  BUTTON  #9;  Get  Sked  **••*•**••••••*••••» 

on  mouseUp 

put  card  field  start  into  oldstart 

put  card  field  listing  of  card  skedfile  into  card  field  listing 

show  card  field  listing 

hide  card  field  title 

set  lockMessages  to  true 

set  lockScreen  to  true 
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ask  "Enter  schedule  name” 
if  it  is  empty  then 

send  mouseUp  to  card  button  "return" 
exit  mouseUp 
else 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  listing 
if  it  s  line  j  of  card  field  listing  then 
exitrqieat 
end  if 

if  j  =  the  number  of  lines  in  card  field  listing  then 
answer  "Schedule  not  found"  with  "Return" 
send  mouseUp  to  card  button  "get  sked" 
exit  mouseUp 
end  if 
endrqieat 

put  quote  &  it  &  quote  into  tempname 
put  tempname  into  card  field  skedname 
put  "card"  &&  quote  &  it  &  quote  into  tempname 
go  to  tempname 

put  the  short  id  of  this  card  into  card  field  cardjd  of  card  modify 
put  card  Held  sked  into  card  field  sked_box  of  card  modify 
put  card  field  title  into  card  field  title  of  card  modify 
put  card  field  start  into  card  field  start  of  card  modify 
go  to  card  "modify" 
set  lockscreen  to  false 
if  oldstait  o  card  field  stan  then 
send  mouseUp  to  card  button  draw 
end  if 

hide  card  field  listing 
show  card  field  title 

select  after  last  char  of  card  field  enter.box 
end  if 

end  mouseUp 


••  CARD  #6,  BUTTON  #10:  View  Terms 
on  mouseUp 
push  card 
go  to  card  terms 
end  mouseUp 


**  CARD  #7;  terms 
onopenCard 
show  field  2 
endopenCard 

••  CARD#?,  BUTTON  #1:  New  Button  ♦•**•••••*••••**•••**•*•*•*••*****•♦ 
on  mouseUp 
set  lockMessages  to  true 
hide  field  2 
pop  card 
end  mouseUp 


•*  CARD  #8:  draw  ***••*•♦*****•*••*••*•••*•••*••••*•* 
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onopenCard 

put  card  field  listing  of  card  skedfile  into  card  field  listing 
showcard  field  header 
show  card  field  list_head 
show  card  field  listing 
endopenCard 
on  idle 

hide  card  field  shield 
end  idle 

••  CARD#8.  BUTTON  #1;  Gel  Sked  * . ••••••••••.. 

on  mouseUp 

put  card  field  start  into  oldstart 
pot  card  field  listing  of  card  skedfile  into  card  field  listing 
show  card  field  listing 
hide  card  field  title 
set  lockMessages  to  true 
set  lockScreen  to  true 
ask  "Enter  schedule  name" 
if  it  is  empty  then 
exit  mouseUp 
else 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  listing 
if  it  =  line  j  of  card  field  listing  then 
exit  repeat 
end  if 

if  j  =  the  number  of  lines  in  card  field  listing  then 
answer  "Schedule  not  found"  with  "Return" 
send  mouseUp  to  card  button  "gel  sked" 
exit  mouseUp 
end  if 
end  repeat 

put  quote  &  it  &  quote  into  tempname 

put  "card"  &&  quote  &  it  &  quote  into  tempname 

go  to  tempname 

put  card  field  sked  into  card  field  sked_box  of  card  draw 
pul  card  field  title  into  card  field  title  of  card  draw 
put  card  field  start  into  card  field  start  of  card  draw 
go  to  card  "draw" 
hide  card  field  list_head 
hide  card  field  listing 
set  lockscreen  to  false 
end  if 

end  mouseUp 

••  CARD  #8,  BUTTON  #2;  Return 
on  mouseUp 

send  mouseUp  to  card  button  erase 
put  empty  into  card  field  sked_box 
put  empty  into  card  field  start 
put  empty  into  card  field  title 
pul  empty  into  card  field  listing 
go  to  card  schedules 


end  mouseUp 

•*  CARD  #8,  BUTTON  #3:  Print  ••••••**•••**••*•••**•••*••••****•** 

on  mouseUp 
set  cursor  to  4 
show  card  field  shield 
open  printing 
print  this  card 
close  printing 
end  mouseUp 

••  CARD  #8.  BUTTON  #4:  Erase  •*••••••••••*•••••••*••*••••*•****•* 

on  mouseUp 
set  cursor  to  4 
set  lockScreen  to  true 
choose  pencil  tool 
drag  from  0,0  to  0,1 
choose  select  tool 
drag  from  0,0  to  512,342 
type  "x"  with  commandKey 
^ow  card  field  heado- 
choose  browse  tool 
end  mouseUp 

••  CARD  #8,  BUTTON  #5:  Draw 
on  mouseUp 
set  cursor  to  4 

send  mouseUp  to  card  button  "get  sked" 
if  card  field  start  is  empty  then 
send  mouseUp  to  card  buaon  "return” 
exit  mouseUp 
end  if 

hide  card  field  headCT 
hide  card  field  listing 
hide  card  field  list_head 
put  0  into  underway 
put  0  into  column 
put  0  into  noteline 
put  1  into  notenum 
repeat  with  j  =  1  to  10 
put  j  -t-  8  into  emptyfield 
put  empty  into  card  field  emptyfield 
end  repeat 
choose  bucket  tool 
set  pattern  to  1 
click  at  100,100 
choose  browse  tool 
put  card  field  start  into  begin 
convert  begin  to  dateiiems 
get  last  char  of  begin 
put  it  into  temp 
if  temp  >  2  then 
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put  temp  -  3  into  temp 
else 

if  temp  =  2  then 
put  6  into  temp 
else 

put  S  into  temp 
end  if 
end  if 

put  SS  -  S  *  temp  into  location 
put  begin  into  tempdate 
put  last  char  of  begin  into  temp 
put  (9  •  temp)  mod  7  into  temp 
convert  tempdate  to  seconds 
put  tempdate  +  86400  *  temp  into  tempdate 
set  the  textFont  to  courier 
set  the  textSize  to  10 
set  the  textStyle  to  plain 
set  the  textHeight  to  10 
set  text^gn  to  left 
choose  line  tool 
put  card  field  start  into  now 
put  lastDay(now)  into  ending 
drag  from  25,61  to  ending  •  5  +  20,61 
drag  from  25,68  to  ending  *  5  +  20,68 
put  20  into  loc 
repeat  with  j  =  1  to  ending 
drag  from  loc  +  5  *  j,62  to  loc  +  5  *  j,67 
endrq)eat 

repeat  until  location  >  465 
choose  line  tool 

drag  from  location,53  to  location, 61 

choose  text  tool 

convert  tempdate  to  abbr  date 

put  the  length  of  word  3  of  tempdate  into  ten 

put  char  1  to  len  - 1  of  word  3  of  tempdate  into  day 

click  at  location  +  2,58 

type  day 

if  day  <  8  then 

put  char  2  of  item  2  of  tempdate  into  mon 

put  numToChar(charToNum(char  3  of  item  2  of  tempdate)  -  32)  aftCT-i 
last  char  of  mon 

put  numToChar(charToNum(char  4  of  item  2  of  tempdate)  -  32)  after-, 
last  char  of  mon 
type  mon 
end  if 

convert  tempdate  to  seconds 
put  604800  +  tempdate  into  tempdate 
put  location  +  35  into  location 
end  repeat 
cUck  at  256,25 
set  textAlign  to  center 
set  textHeight  to  12 
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set  textSize  to  12 

type  "QUARTERLY  EMPLOYMENT  SCHEDULE &&  qNum(card  field  stan>^ 

&&  "QUARTER,  FISCAL  YEAR"  &&  fiscal(card  field  start) 

choose  browse  uxd 

set  the  textFont  to  courier 

set  the  textSize  to  10 

set  the  textStyle  to  plain 

set  the  textHeight  to  10 

set  textAlign  to  left 

put  card  field  start  into  startdate 

convert  startdate.  to  seconds 

put  empty  into  card  field  notes 

repeat  widi  j »  1  to  the  number  of  lines  in  card  field  sked.box 
choose  line  tool 

put  item  2  of  line  j  of  card  field  sked.box  into  tempstart 
convert  tempstart  to  seconds 
put  ((tempstart  -  startdate)/86400)  *  S  -»■  2S  into  startloc 
put  item  3  of  line  j  of  card  field  sked_box  into  tempstop 
convert  tempstop  to  seconds 
put  ((tempstop  -  startdate)/864(X))  *5  +  30  into  stoploc 
if  item  5  of  line  j  of  card  field  sked_box  =  "m"  then 
choose  text  tool 
click  at  startloc  +  1,77 
put  stoploc  -  startloc  into  interval 

put  the  length  of  item  1  of  line  j  of  card  field  sked_box  *  6-. 
intolen 

if  interval  <  len  +  1  then 
type  notenum 

put  notenum  +  1  into  notenum 

put  item  1  of  line  j  of  card  field  sked_box  &  return  ,  fier  lasi-i 
char  of  card  field  notes 
else 

type  item  1  of  line  j  of  card  field  sked_box 
end  if 

choose  line  tool 

drag  from  startloc, 70  to  startloc,80 
drag  from  stoploc,70  to  stoploc  ,80 
drag  from  startJoc,78  to  stoploc,78 
set  textFont  to  courier 

if  item  4  of  line  j  of  card  field  sked_box  =  "b"  then 
choose  bucket  tool 
set  pattern  to  22 
put  startloc  +  1  into  loc 
rqteat  until  loc  >  stoploc 
put  underway  +  1  into  underway 
click  at  loc,62 
put  loc  -f  S  into  loc 
end  repeat 
end  if 

choose  text  tool 
else 

repeat  with  x  =  1  to  10 


put  X  +  8  into  fieldnutn 
if  line  1  of  card  field  fieldnum  >  stoploc  or 
line  2  of  card  field  fieldnum  <  startloc  then 
put  80  +  15  *  X  into  lineloc 
choose  text  tool 
click  at  startloc  +  1, lineloc  -  3 
put  stoploc  •  startloc  into  interval 

put  the  length  of  item  1  of  line  j  of  card  field  sked_box  *  6-. 
into  len 

if  interval  <  len  +  1  then 
typenotenum 

put  notenum  +  1  into  notenum 

put  item  1  of  line  j  of  card  field  sked_box  &  return  after  -i 
last  char  of  card  field  notes 
else 

type  item  1  of  bne  j  of  card  field  sked_box 
end  if 

choose  line  tool 

drag  from  startloc,lineloc  - 10  to  startloc.lineloc 
drag  from  stoploc  Jineloc  - 10  to  stoploc  Jineloc 
drag  from  startloc.lineloc  -  2  to  stoploc.lineloc  -  2 
set  textFont  to  courier 
if  card  field  fieldnum  is  empty  then 
put  startloc  into  line  1  of  card  field  fieldnum 
put  stoploc  into  line  2  of  card  field  fieldnum 
exit  repeat 
end  if 

if  line  1  of  card  field  fieldnum  >  startloc  then 
put  startloc  into  line  1  of  card  field  fieldnum 
exit  repeat 
else 

if  line  2  of  card  field  fieldnum  <  stoploc  then 
pul  stoploc  into  line  2  of  card  field  fieldnum 
exit  repeat 
end  if 
end  if 
end  if 
end  repeat 
end  if 
end  repeat 
choose  text  tool 
set  numberFormat  to  "00" 
put  underway/fending  -  1)  *  100  into  optempo 
click  at  25,45 

type  "DAYS  UNDERWAY:"  &&  underway 
click  at  400,45 

type  "OPTEMPO;"  &&  optempo  & 

set  numberFormat  to  "0.######" 

choose  line  tool 

drag  from  30,260  to  483,260 

choose  text  tool 

click  at  30,257 
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type  "NOTES;" 

repeat  with  j  =  1  to  the  number  of  lines  in  card  field  notes 
click  at  30  +  column  •  140,270  +  noteline 
type  j  &&  line  j  of  card  field  notes 
put  noteline  -t- 10  into  noteline 
if  j  mod  4  =  0  then 
put  0  into  noteline 
put  column  +  1  into  column 
end  if 
end  repeat 
choose  browse  tool 
reset  paint 
end  mouseUp 
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APPENDIX  F.  PUBLICATIONS  STACK  SCRIPTS 

SCRIPTS  FOR  STACK;  pubs 


**  STACK  SCRIPT  •**••••**••**••••**•**•••***•*•**'<'*• 
on  openStack 

pul  field  1  of  card  oporders  into  field  1  of  card  dummy 
end  openStack 
function  goodDale  date 
if  the  length  of  date  <>  5  then 
return  false 
end  if 

if  char  1  of  dale  is  not  in  "01"  then 
return  false 
end  if 

if  char  1  of  date  =  "0"  then 
if  char  2  of  dale  is  not  in  "123456789"  then 
return  false 
end  if 
else 

if  char  1  of  date  =  "  1 "  then 
if  char  2  of  dale  is  not  in  "012"  then 
return  false 
end  if 
end  if 
end  if 

if  char  4  of  dale  is  not  in  "0123456789"  then 
return  false 
end  if 

if  char  5  of  date  is  not  in  "0123456789"  then 
return  false 
end  if 

if  char  3  of  dale  <>  "/"  then 
return  false 
end  if 
return  true 
end  goodDale 
function  goodNum  Num 
if  the  length  of  num  >  2  then 
return  false 
end  if 

if  the  length  of  num  =  2  then 
if  char  1  of  num  is  not  in  "123456789"  then 
return  false 
else 

if  char  2  of  num  is  not  in  "123456789"  tlicn 
return  false 
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end  if 
end  if 
else 

if  char  1  of  num  is  not  in  "123456789"  then 
return  false 
end  if 
end  if 
return  true 
endgoodNum 


*■*  BACKGROUND  #1:  Operations  ************************************ 
on  openStack 
hide  message  box 
show  menuBar 
pass  openStack 
end  openStack 

**  CARD  #1  BUTTON  #1'  RETURN  •••****************»***»****»+»*-i‘*** 
on  mouseUp 
go  to  operations 
end  mouseUp 

**  Card  #1  button  #2:  exit  •*•*♦*•****♦***••••*•******•***»»**» 
on  mouseUp 
go  argos 
end  mouseUp 


**  Q ^  BUTTON  #3:  pubs  ********»*************************** 

on  mouseDown 

put  "OPORDERS  &  OPLANS"  into  menul 
put  return  &  "INSTRUCTIONS"  after  mcnul 
put  return  &  "NWP"  after  mcnul 
get  HPopupMcnu(mcnu  1 ,0,88, 1 02) 
if  it  is  not  zero  then 
Put  Item  1  of  it  into  ThcLinc 
put  Item  2  of  it  into  Thcltcm 
lfThcLinc=l  andThcItem=l  then 
GO  NEXT 
end  if 
end  if 

end  mouseDown 

••  CARD  #2,  BUTTON  #1;  Find 

on  mouseUp 
ask  "Enter  pub  title" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  &  into  findstrmg 
ask  "Enter  annex"  with  "None" 
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if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 

if  it  is  not  in  "abcdefghijkJmnopqrstuvwxyz"  then 
repeat  until  it  is  in  "abcdefghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  ","  after  last  char  of  findstring 
else 

put  "0,"  after  last  char  of  fmdstring 
end  if 

ask  "Enter  appendix"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 
if  goodNum(it)  is  false  then 
repeat  until  goodNum(it)  is  true 
ask  "Invalid  entry  (Must  be  a  number)"  with  "NONE" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
end  if 

put  it  &  after  last  char  of  findstring 
else 

put  "0,"  after  last  char  of  fmdstring 
end  if 

ask  "Enter  tab"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

ifito  "none"  then 

if  it  is  not  in  "abcdefghijklmnopqrstuvwxyz"  then 
repeat  until  it  is  in  "abcdefghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  after  last  char  of  findstring 
else 

put  "0,"  after  last  char  of  fmdstring 
end  if 

find  string  fmdstring  in  field  1 
if  the  result  is  not  empty  then 
answer  "Publication  is  not  on  record”  with  "return” 
exit  mouseUp 
end  if 

put  word  2  of  the  foundLine  into  here 
put  line  here  of  field  2  into  card  field  view 
end  mouseUp 
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••  CARD  #2,  BUTTON  #2:  Enter  New  Pub  •*•****•**•••*•*♦*********•••******♦ 
on  mouseUp 
ask  "Enter  pub  title" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  &  into  templine 
ask  "Enter  annex"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 

if  it  is  not  in  "abcdefghijklmnopqrstuvwxyz"  then 
repeat  until  it  is  in  "abcdefghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  after  last  char  of  templine 
else 

put  "0,"  after  last  char  of  templine 
end  if 

ask  "Enter  appendix"  with  "None” 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 
if  goodNum(it)  is  false  then 
repeat  until  goodNum(il)  is  true 
ask  "Invalid  entry  (Must  be  a  number)"  with  "NONE" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
end  if 

put  it  &  after  last  char  of  tcmpline 
else 

put  "0,"  after  last  char  of  templine 
end  if 

ask  "Enter  tab"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 

if  it  is  not  in  "abcdefghijklmnopqrstuvwxyz"  then 
repeat  until  it  is  in  "abcdefghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  after  last  char  of  tcmpline 
else 

pul  "0,"  after  last  char  of  tcmpline 
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end  if 

ask  "Enter  Effective  date  (MMA^O" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  goodDate(it)  is  false  then 
repeat  until  goodDate(it)  is  true 

"Invalid  entry  (Use  leading  zero)" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
end  if 

put  it  &  after  last  char  of  templine 
ask  "Enter  classification  (T,S,C,  or  U)” 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  is  not  in  "tscu"  then 
repeat  until  it  is  in  "tscu" 
ask  "Invalid  entry  (Must  be  T.S.C,  or  U)" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
end  if 

put  it  &  after  last  char  of  templine 
ask  "Enter  latest  change  number"  with  "NONE" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 
if  goodNum(it)  is  false  then 
repeat  until  goodNum(it)  is  true  or  it  =  "NONE" 
ask  "Invalid  entry  (Must  be  a  number)"  with  "NONE" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
end  if 
else 

put  "0"  into  it 
end  if 

put  it  &  after  last  char  of  lempline 
ask  "Enter  Location/Custodian" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  after  last  char  of  templine 

put  item  1  of  lempline  &  &  item  2  of  templine  & 

item  3  of  lempline  &  &  item  4  of  templine  into  sortsuing 

repeat  with  j  =  1  to  the  number  of  lines  in  field  1 
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put  item  1  of  line  j  of  field  1  &  &  item  2  of  line  j  of  field  l-i 

& &  item  3  of  linej  of  field  1  & &  item  4  of  line  j  of-, 
field  1  into  findstring 
if  sortstring  >  findstring  then 
if  j  -  the  number  of  lines  in  field  1  then 
put  return  &  templine  after  line  j  of  field  1 
put  false  into  firstline 
put  true  into  insert 
put  j  into  here 
exit  repeat 
end  if 
next  repeat 
else 

if  sortstring  =  findstring  then 
put  templine  into  line  j  of  field  1 
put  false  into  insert 
put  false  into  firstline 
put  j  into  here 
exit  repeat 
else 

if  j  =  1  then 

put  lempline  &  return  before  line  1  of  field  1 
put  true  into  firstline 
exit  repeat 
else 

put  return  &  templine  after  line  j  -  1  of  field  1 
put  false  into  firstline 
put  true  into  insert 
putj  -  1  into  here 
exit  repeat 
end  if 
end  if 
end  if 
end  repeat 

put  item  1  of  templine  into  tcmpadd 
repeat  until  the  length  of  tempadd  =  37 
put  space  after  last  char  of  tempadd 
end  repeat 

if  "0"  is  in  item  2  of  templine  then 
put  space  &  space  &  space  after  last  char  of  tempadd 
else 

put  space  &  item  2  of  templine  &  space  after  last  char  of  tempadd 
end  if 

if  "0"  is  in  item  3  of  templine  then 
put  space  &  space  &  space  after  last  char  of  tempadd 
else 

if  the  length  of  item  3  of  templine  =  2  then 
put  item  3  of  lempline  &  space  after  last  char  of  tempadd 
else 

put  space  &  item  3  of  lempline  &  space  after  last  char  of  tempadd 
end  if 
end  if 
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if  "0"  is  in  item  4  of  templine  then 
put  space  &  space  after  last  char  of  tempadd 
else 

put  item  4  of  templine  &  space  after  last  char  of  tempadd 
end  if 

put  item  5  of  templine  &  space  after  last  char  of  tempadd 
put  " "  &  item  6  of  templine  &  space  after  last  char  of  tempadd 
if  item  7  of  templine  =  "NONE"  then 
put "  "  &  "0"  &  space  after  last  char  of  tempadd 
else 

put "  "  &  item  7  of  templine  &  space  after  last  char  of  tempadd 
end  if 

put  space  &  char  1  to  20  of  item  8  of  templine  after  last  char  of  -i 
temp^ 

if  flrstline  is  true  then 

put  tempadd  &  return  before  line  1  of  field  2 
exit  mouseUp 
end  if 

if  insert  is  true  then 

put  return  &  tempadd  after  line  here  of  field  2 
else 

put  tempadd  into  line  here  of  field  2 
end  if 

put  field  1  into  field  1  of  card  dummy 
end  mouseUp 

’•'*  CARD  #2,  BUTTON  #3;  Delete 
on  mouseUp 
ask  "Enter  pub  dtle" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  &  into  findslring 
ask  "Enter  annex"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 

if  it  is  not  in  "abcdefghijklmnopqrstuvwxyz"  then 
repeat  until  it  is  in  "eN-defghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  after  last  char  of  findsuing 
else 

put  "0,"  after  last  char  of  findstring 
end  if 

usk  "Enter  appendix"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  <>  "none"  then 
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if  goodNum(it)  is  false  then 
repeat  until  goodNuin(it)  is  true 
ask  "Invalid  entry  (Must  be  a  number)"  with  "NONE" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
end  if 

put  it  &  ","  after  last  char  of  findstring 
else 

put  "0,"  after  last  char  of  findstring 
end  if 

ask  "Enter  tab"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 

if  it  is  not  in  "abcdefghijklmnopqrstuvwxyz”  then 
repeat  until  it  is  in  "abcdefghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  ","  after  last  char  of  findstring 
else 

put  "0,"  after  last  char  of  findstring 
end  if 

find  string  findstring  in  field  1 
if  the  result  is  not  empty  then 
answer  "Publication  is  not  on  record”  with  "return" 
exit  mouseUp 
end  if 

put  word  2  of  the  foundLine  into  trash 
delete  line  trash  of  field  1 
delete  line  trash  of  field  2 
put  field  1  into  field  1  of  card  dummy 
end  mouseUp 


**  CARD  #2,  BUTTON  #4:  Selective  List  **•****•****••***♦•♦♦***♦**•»•****** 
on  mouseUp 

put  empty  into  card  field  view 

answer  "Choose  list  criterion"  with  "Classification"  or  "Originator"— i 
or  "Custodian" 
if  it  is  "Classification"  then 
ask  "Enter  classification  (T,S,C,  or  Uj" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "t"  and  it  <■'>  "s"  and  it  <>  "c"  and  it  o  "u"  then 
repeat  until  it  =  "t"  or  it  =  "s"  or  it  =  "c”  or  it  =  "u" 
ask  "Invalid  classification  (T,S,C,  or  U/' 
if  it  is  empty  then 
exit  mouseUp 
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end  if 
end  repeat 
end  if 

put  it  into  class 

repeat  with  j  =  1  to  the  number  of  lines  in  field  1 
if  item  6  of  line  j  of  field  1  =  class  then 
put  line  j  of  field  2  &  return  after  last  char  of  card  field  -> 
view 
end  if 
end  repeat 
end  if 

if  it  is  "originatCH’"  then 
ask  "Enter  originator  name" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  into  orig 
set  cursor  to  4 
set  lockScreen  to  true 
repeat 

find  whole  orig  in  field  1 
if  the  result  <>  empty  then 
if  card  field  view  is  empty  then 

answer  "No  pubs  originated  by"  &&  orig  &&  "on  file"  with 
"Return" 
exit  mouseUp 
end  if 
else 

if  the  short  id  of  this  card  <>  4762  then 
go  to  card  oporders 
exit  mouseUp 
end  if 

put  word  2  of  the  foundLinc  into  linenum 
put  line  linenum  of  field  2  &  return  after  last  char  of  -• 
card  field  view 
end  if 
end  repeat 
end  if 

if  it  is  "custodian"  then 
ask  "Enter  custodian/location" 
if  it  is  empty  then 
exit  mouseUp 
else 

put  it  into  thenamc 
set  cursor  to  4 
set  lockScreen  to  true 
repeat 

find  whole  thename  in  field  1 
if  the  result  <>  empty  then 
if  card  field  view  is  empty  then 

answer  "No  pubs  held  by"  &&.  thename  &&  "on  file"  with  — 
"Return" 
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exit  mouseUp 
end  if 
else 

if  the  short  id  of  this  card  <>  4762  then 
go  to  card  cqrarders 
exit  mouseUp 
end  if 

put  word  2  of  the  foundLine  into  linenum 
put  line  linenum  of  field  2  &  return  after  last  char  of 
card  field  view 
end  if 
end  repeat 
end  if 
end  if 

end  mouseUp 

**  CARD  #2,  BUTTON  #5:  List  •***♦••••********♦♦•*♦♦*•****••**♦»• 

on  mouseUp 

put  field  2  into  card  field  view 
end  mouseUp 

**  CARD  #2,  BUTTON  #6:  RETURN  •■"*•*•♦**♦**♦♦***•*♦*♦*•♦*♦**•♦♦***♦ 
on  mouseUp 
go  first 
end  mouseUp 

•*  CARD  #2,  BUTTON  #7:  Change  Data  •********»*************»************ 
on  mouseUp 
ask  "Enter  pub  title” 
if  it  is  empty  then 
exit  mouseUp 
end  if 

put  it  &  into  findstring 
ask  "Enter  annex"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 

if  it  is  not  in  "abcdefghijklmnopqrsluvwxyz"  then 
repeat  until  it  is  in  "abcdefghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  after  last  char  of  findstring 
else 

put  "0,"  after  last  char  of  findstring 
end  if 

ask  "Enter  appendix"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  <>  "none"  then 
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if  goodNum(it)  is  false  then 
repeat  until  goodNum(it)  is  true 
ask  "Invalid  entry  (Must  be  a  number)"  with  "NONE" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
ertd  if 

put  it  &  after  last  char  of  fmdstring 
else 

put  "0, "  after  last  char  of  findstring 
end  if 

ask  "Enter  tab"  with  "None" 
if  it  is  empty  then 
exit  mouseUp 
end  if 

if  it  o  "none"  then 

if  it  is  not  in  "abcdefghijklmnopqrstuvwxyz"  then 
repeat  until  it  is  in  "abcdefghijklmnopqrstuvwxyz" 
ask  "Invalid  entry  (Must  be  a  letter)"  with  "NONE" 
end  repeat 
end  if 

put  it  &  after  last  char  of  findstring 
else 

put  "0,"  after  last  char  of  findstring 
end  if 

find  string  findstring  in  field  1 
if  the  result  is  not  empty  then 
answer  "Publication  is  not  on  record"  with  "return" 
exit  mouseUp 
end  if 

put  word  2  of  the  foundLine  into  change 

answer  "Choose  data  item  to  change"  with  "Change  #"  or  "Custodian" 
if  it  is  "change  #"  then 
ask  "Enter  latest  change  number" 
if  it  is  empty  then 
exit  mouseUp 
else 

if  goodNum(it)  is  false  then 
repeat  until  goodNum(it)  is  true 
ask  "Invalid  entr>'  (Must  be  a  number)" 
if  it  is  empty  then 
exit  mouseUp 
end  if 
end  repeat 
end  if 
end  if 

put  it  into  item  7  of  line  change  of  field  1 
put  it  into  char  59  of  line  change  of  field  2 
else 

ask  "Enter  new  custodian" 
if  it  is  empty  then 
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exit  mouseUp 
else 

put  char  1  to  20  of  it  into  item  8  of  line  change  of  field  1 
put  char  1  to  20  of  it  into  char  62  to  81  of  line  change  of  field  2 
end  if 
end  if 

end  mouseUp 


184 


BIBLIOGRAPHY 


Akscyn,  R.  M.,  McCracken,  D.  L.,  Yoder,  E.  “KMS:  A  Distributed  Hypermedia 
System  for  Managing  Knowledge  in  Organizations,”  Communications  of  the  ACM, 
vol.  31  no.  7,  July,  1988. 

Anzovin,  Steven,  Exploring  HyperCard,  Compute!  Publications,  Inc.,  1988. 

Anzovin,  Steven,  Computers  Quick  &  Easy  Guide  to  HyperCard,  Compute!  Publica¬ 
tions,  Inc.,  1988. 

Apple  Computer,  Inc.,  HyperCard  User's  Guide,  1987. 

Apple  Computer,  Inc.,  HyperCard  Script  Language  Guide:  The  HyperTalk  Lan¬ 
guage,  Addisoii-Wesley  Publishing  Company,  Inc.,  1988. 

Chickering,  J.  E.,  “The  Ad\ent  of  the  Paperless  Ship.”  Naval  Engineers  Journal, 
■May,  1988. 

Conklin,  J.  “Hvpertext:  An  Introduction  and  Survey,”  IEEE  Computer,  September, 

1987. 

Goodman,  Dannv,  Dannv  Goodman's  HyperCard  Developer's  Guide,  Bantam  Books. 

1988. 


Goodman.  Dannv,  The  Complete  HyperCard  Handbook,  Bantam  Computer 
Books.  1987. 

Har\e>.  Greg.  Understanding  HyperCard.  Sybex,  Inc.,  1988. 

Korth.  H.  F..  Silberschatz,  A..  Database  System  Concepts,  MacGraw-Hill  Book  Co.. 
1986. 

MacLennan.  B.  J..  Prim  oles  of  Programming  Languages,  Holt,  Kineliart,  and 
N\  inston.  Inc.,  1987. 

Shell.  Barry.  Running  HyperCard  \Tith  HyperTalk,  Management  Information  Ser¬ 
vice,  Inc.,  1988. 


INITIAL  DISTRIBUTION  LIST 


No.  Copies 

1.  Defense  Technical  Information  Center  2 

Cameron  Station 

Alexandria,  VA  22304-6145 

2.  Librar\,  Code  0142  2 

Naval  Postgraduate  School 

Monterey,  CA  93943-5002 

3.  Office  of  Naval  Research  1 

Office  of  the  Chief  of  Naval  Research 

Attn:  CDR  Michael  Gehl.  Code  1224 
800  N.  Quincy  St. 

Arlington,  \  A  22217-5000 

4.  Space  and  Naval  U'arfare  Systems  Command  1 

Altn;  I.C  DR  Topoeroff 

Nation  Center  1,  Room  11N08 
2511  .lefferson  Da\is  Hwv 
Washington,  DC  20363-5100 

5.  Office  of  the  Chief  of  Naval  Operations  1 

Attn:  CAPT  Don  Rhodes 

Code  OP-4()3 

33  ashinglon.  DC  20350-2000 

6.  DepaHmenl  of  the  Navy  1 

Na\al  Sea  S\stem  Command 

Attn:  Mr.  (  ii!tord  (reiger  Code:  Cheng  L 
Washington.  D(  20362-5101 

7.  Office  of  the  Secietar\  of  Defense  1 

Attn;  C  DR  Barber 

STARS  Program  (Office 
Washington.  DC  20301 

8.  Office  of  the  Secretary  of  Defense  1 

Attn:  Mr.  .loel  Trimble 

STARS  Program  Office 
\3  ashinglon.  DC  20301 

9.  Commanding  Officer  1 

Na\al  Research  Laboratory 

C  ode  5150 

Attn:  Dr.  Elizabeth  Wald 
Washington,  DC  20375-5000 


1S6 


1 


10.  Naval  Ocean  Systems  Center  1 

Attn:  Linwood  Sutton,  Code  423 

San  Diego,  CA  92152-5000 

11.  National  Science  Foundation  1 

Division  of  Computer  and  Computation  Research 

Washington,  DC  20550 

12.  Department  of  the  Na;")  1 

Naval  Sea  Systems  Command 

Attn:  Mr.  Phil  Styles  Code:  CEL-TDl 
Washington,  DC  20362-5101 

13.  Department  of  the  Navv’  1 

Naval  Sea  Systems  Command 

Attn:  Mr.  Niike  Mehalic  Code:  CEL-PAB 
Washington,  DC  20362-5101 

14.  Office  of  Naval  Research  1 

Computer  Science  Di^  ision,  Code:  1133 

Attn:  Dr.  \’an  Tilburg 
iSOO  N.  Quincv  St. 

Arlington,  \  A  22217-5000 

15.  David  W.  Taylor  Naval  Ship  R&D  Center  1 

Attn:  Mr.  J.  Hawkins  Code:  1740.2 

Bethesda,  MD  20084-5000 

16.  Naty  Management  Systems  Support  Office  1 

Detachment  Pacific 

Attn:  Mr.  Lyle  Rich  (\)de:  311 
Naval  Station.  Box  217 
San  Diego,  CA  92136-5217 

17.  Prof.  C.  T.  \\  u  Code:  52N\  q  5 

Naval  Postgraduate  School 

Monterey,  CA  93943 

18.  Prof.  D.  K.  Hsiao  (  ode:  52 Hq  2 

Na\al  Postgraduate  School 

Monterey.  C.A  93943 

19.  LT  William  R.  Ault  2 

Class  109 

Surface  U  arfare  Officer  School  Command 
Newport.  R1  02841 


]S7 


